home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / cmpnew / cmptop.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  70KB  |  2,971 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmptop.h"
  5. init_cmptop(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     VV[0]->s.s_stype=(short)stp_special;
  9.     if(VV[0]->s.s_dbind == OBJNULL){
  10.     VV[0]->s.s_dbind = Cnil;}
  11.     VV[1]->s.s_stype=(short)stp_special;
  12.     if(VV[1]->s.s_dbind == OBJNULL){
  13.     VV[1]->s.s_dbind = Cnil;}
  14.     VV[2]->s.s_stype=(short)stp_special;
  15.     if(VV[2]->s.s_dbind == OBJNULL){
  16.     VV[2]->s.s_dbind = Cnil;}
  17.     VV[3]->s.s_stype=(short)stp_special;
  18.     if(VV[3]->s.s_dbind == OBJNULL){
  19.     VV[3]->s.s_dbind = Cnil;}
  20.     VV[4]->s.s_stype=(short)stp_special;
  21.     if(VV[4]->s.s_dbind == OBJNULL){
  22.     VV[4]->s.s_dbind = Cnil;}
  23.     VV[5]->s.s_stype=(short)stp_special;
  24.     if(VV[5]->s.s_dbind == OBJNULL){
  25.     VV[5]->s.s_dbind = Cnil;}
  26.     VV[6]->s.s_stype=(short)stp_special;
  27.     if(VV[6]->s.s_dbind == OBJNULL){
  28.     VV[6]->s.s_dbind = Cnil;}
  29.     VV[7]->s.s_stype=(short)stp_special;
  30.     if(VV[7]->s.s_dbind == OBJNULL){
  31.     VV[7]->s.s_dbind = Ct;}
  32.     VV[8]->s.s_stype=(short)stp_special;
  33.     if(VV[8]->s.s_dbind == OBJNULL){
  34.     VV[8]->s.s_dbind = Cnil;}
  35.     VV[9]->s.s_stype=(short)stp_special;
  36.     if(VV[9]->s.s_dbind == OBJNULL){
  37.     VV[9]->s.s_dbind = Cnil;}
  38.     VV[10]->s.s_stype=(short)stp_special;
  39.     if(VV[10]->s.s_dbind == OBJNULL){
  40.     VV[10]->s.s_dbind = Cnil;}
  41.     VV[11]->s.s_stype=(short)stp_special;
  42.     if(VV[11]->s.s_dbind == OBJNULL){
  43.     VV[11]->s.s_dbind = Cnil;}
  44.     VV[12]->s.s_stype=(short)stp_special;
  45.     if(VV[12]->s.s_dbind == OBJNULL){
  46.     VV[12]->s.s_dbind = Cnil;}
  47.     (void)(putprop(VV[13],Ct,VV[14]));
  48.     (void)(putprop(VV[15],Ct,VV[14]));
  49.     (void)(putprop(VV[16],Ct,VV[14]));
  50.     (void)(putprop(VV[17],Ct,VV[14]));
  51.     (void)(putprop(VV[18],Ct,VV[14]));
  52.     (void)(putprop(VV[19],Ct,VV[14]));
  53.     (void)(putprop(VV[20],Ct,VV[14]));
  54.     (void)(putprop(VV[21],Ct,VV[14]));
  55.     (void)(putprop(VV[22],Ct,VV[14]));
  56.     (void)(putprop(VV[23],Ct,VV[14]));
  57.     (void)(putprop(VV[24],Ct,VV[14]));
  58.     (void)(putprop(VV[25],VV[26],VV[27]));
  59.     (void)(putprop(VV[28],VV[29],VV[27]));
  60.     (void)(putprop(VV[30],VV[31],VV[27]));
  61.     (void)(putprop(VV[32],VV[33],VV[27]));
  62.     (void)(putprop(VV[34],VV[35],VV[27]));
  63.     (void)(putprop(VV[36],VV[37],VV[27]));
  64.     (void)(putprop(VV[38],VV[39],VV[27]));
  65.     (void)(putprop(VV[40],VV[41],VV[27]));
  66.     (void)(putprop(VV[42],VV[43],VV[27]));
  67.     (void)(putprop(VV[44],Ct,VV[45]));
  68.     (void)(putprop(VV[46],Ct,VV[45]));
  69.     (void)(putprop(VV[47],Ct,VV[45]));
  70.     (void)(putprop(VV[48],Ct,VV[45]));
  71.     (void)(putprop(VV[49],Ct,VV[45]));
  72.     (void)(putprop(VV[30],VV[50],VV[51]));
  73.     (void)(putprop(VV[32],VV[52],VV[51]));
  74.     (void)(putprop(VV[53],VV[54],VV[51]));
  75.     (void)(putprop(VV[55],VV[56],VV[51]));
  76.     (void)(putprop(VV[57],VV[58],VV[51]));
  77.     (void)(putprop(VV[38],VV[59],VV[51]));
  78.     (void)(putprop(VV[42],VV[60],VV[51]));
  79.     (void)(putprop(VV[30],VV[61],VV[62]));
  80.     (void)(putprop(VV[32],VV[63],VV[62]));
  81.     (void)(putprop(VV[34],VV[64],VV[62]));
  82.     (void)(putprop(VV[36],VV[65],VV[62]));
  83.     (void)(putprop(VV[38],VV[66],VV[62]));
  84.     data->v.v_self[69]=VV[69]=string_to_object(VV[69]);
  85.     vs_top=sup;
  86.     MF(VV[194],L38,start,size,data);
  87.     MF(VV[195],L39,start,size,data);
  88.     MF(VV[26],L40,start,size,data);
  89.     MF(VV[29],L41,start,size,data);
  90.     MF(VV[31],L42,start,size,data);
  91.     MF(VV[196],L43,start,size,data);
  92.     MF(VV[50],L44,start,size,data);
  93.     MF(VV[61],L45,start,size,data);
  94.     MF(VV[197],L46,start,size,data);
  95.     MF(VV[198],L47,start,size,data);
  96.     MF(VV[33],L48,start,size,data);
  97.     MF(VV[52],L49,start,size,data);
  98.     MF(VV[63],L50,start,size,data);
  99.     MF(VV[199],L51,start,size,data);
  100.     MF(VV[54],L52,start,size,data);
  101.     MF(VV[200],L53,start,size,data);
  102.     MF(VV[58],L54,start,size,data);
  103.     MF(VV[56],L55,start,size,data);
  104.     MF(VV[43],L56,start,size,data);
  105.     MF(VV[60],L57,start,size,data);
  106.     (void)(putprop(VV[167],VV[168],VV[169]));
  107.     MF(VV[168],L59,start,size,data);
  108.     MF(VV[35],L60,start,size,data);
  109.     MF(VV[64],L61,start,size,data);
  110.     MF(VV[37],L62,start,size,data);
  111.     MF(VV[65],L63,start,size,data);
  112.     MF(VV[39],L64,start,size,data);
  113.     MF(VV[59],L65,start,size,data);
  114.     MF(VV[66],L66,start,size,data);
  115.     MF(VV[41],L67,start,size,data);
  116.     MF(VV[201],L68,start,size,data);
  117.     MF(VV[202],L69,start,size,data);
  118.     vs_top=vs_base=base;
  119. }
  120. /*    function definition for T1EXPR    */
  121.  
  122. static L38()
  123. {    register object *base=vs_base;
  124.     register object *sup=base+VM3;
  125.     vs_reserve(VM3);
  126.     bds_check;
  127.     check_arg(1);
  128.     vs_top=sup;
  129. TTL:;
  130.     bds_bind(VV[67],base[0]);
  131.     bds_bind(VV[68],Ct);
  132.     frs_push(FRS_CATCH,VV[69]);
  133.     if(nlj_active)
  134.     {nlj_active=FALSE;frs_pop();
  135.     bds_unwind1;
  136.     bds_unwind1;
  137.     return;}
  138.     else{
  139.     if(!(type_of(base[0])==t_cons)){
  140.     goto T54;}
  141.     {object V1;
  142.     object V2;
  143.     V1= car(base[0]);
  144.     V2= cdr(base[0]);
  145.     base[3]= Cnil;
  146.     if(!(type_of((V1))==t_symbol)){
  147.     goto T59;}
  148.     if(!((V1)==VV[70])){
  149.     goto T62;}
  150.     base[4]= VV[71];
  151.     symlispcall_no_event(VV[203],base+4,1);
  152.     frs_pop();
  153.     bds_unwind1;
  154.     bds_unwind1;
  155.     return;
  156. T62:;
  157.     if((get((V1),VV[14],Cnil))==Cnil){
  158.     goto T66;}
  159.     if((symbol_value(VV[9]))==Cnil){
  160.     goto T68;}
  161.     base[4]= VV[72];
  162.     base[5]= base[0];
  163.     (void)simple_symlispcall_no_event(VV[204],base+4,2);
  164. T68:;
  165.     if((symbol_value(VV[6]))==Cnil){
  166.     goto T73;}
  167.     base[4]= base[0];
  168.     (void)simple_symlispcall_no_event(VV[205],base+4,1);
  169. T73:;
  170.     base[4]= base[0];
  171.     symlispcall_no_event(VV[206],base+4,1);
  172.     frs_pop();
  173.     bds_unwind1;
  174.     bds_unwind1;
  175.     return;
  176. T66:;
  177.     base[3]= get((V1),VV[27],Cnil);
  178.     if((base[3])==Cnil){
  179.     goto T79;}
  180.     if((symbol_value(VV[73]))==Cnil){
  181.     goto T82;}
  182.     (void)simple_symlispcall_no_event(VV[207],base+4,0);
  183. T82:;
  184.     base[4]= (V2);
  185.     vs_top=(vs_base=base+4)+1;
  186.     super_funcall_no_event(base[3]);
  187.     frs_pop();
  188.     bds_unwind1;
  189.     bds_unwind1;
  190.     return;
  191. T79:;
  192.     if((get((V1),VV[45],Cnil))==Cnil){
  193.     goto T87;}
  194.     if((symbol_value(VV[73]))==Cnil){
  195.     goto T89;}
  196.     (void)simple_symlispcall_no_event(VV[207],base+4,0);
  197. T89:;
  198.     base[5]= base[0];
  199.     base[4]= simple_symlispcall_no_event(VV[208],base+5,1);
  200.     vs_top=(vs_base=base+4)+1;
  201.     L38();
  202.     frs_pop();
  203.     bds_unwind1;
  204.     bds_unwind1;
  205.     return;
  206. T87:;
  207.     if((get((V1),VV[74],Cnil))==Cnil){
  208.     goto T95;}
  209.     base[4]= base[0];
  210.     vs_top=(vs_base=base+4)+1;
  211.     L51();
  212.     frs_pop();
  213.     bds_unwind1;
  214.     bds_unwind1;
  215.     return;
  216. T95:;
  217.     base[4]= (V1);
  218.     vs_top=(vs_base=base+4)+1;
  219.     Lmacro_function();
  220.     vs_top=sup;
  221.     base[3]= vs_base[0];
  222.     if((base[3])==Cnil){
  223.     goto T99;}
  224.     base[5]= base[3];
  225.     base[6]= (V1);
  226.     base[7]= cdr(base[0]);
  227.     base[4]= simple_symlispcall_no_event(VV[209],base+5,3);
  228.     vs_top=(vs_base=base+4)+1;
  229.     L38();
  230.     frs_pop();
  231.     bds_unwind1;
  232.     bds_unwind1;
  233.     return;
  234. T99:;
  235.     base[4]= base[0];
  236.     vs_top=(vs_base=base+4)+1;
  237.     L51();
  238.     frs_pop();
  239.     bds_unwind1;
  240.     bds_unwind1;
  241.     return;
  242. T59:;
  243.     if(!(type_of((V1))==t_cons)){
  244.     goto T109;}
  245.     base[4]= base[0];
  246.     vs_top=(vs_base=base+4)+1;
  247.     L51();
  248.     frs_pop();
  249.     bds_unwind1;
  250.     bds_unwind1;
  251.     return;
  252. T109:;
  253.     base[4]= VV[75];
  254.     base[5]= (V1);
  255.     symlispcall_no_event(VV[203],base+4,2);
  256.     frs_pop();
  257.     bds_unwind1;
  258.     bds_unwind1;
  259.     return;}
  260. T54:;
  261.     frs_pop();
  262.     base[3]= Cnil;
  263.     vs_top=(vs_base=base+3)+1;
  264.     bds_unwind1;
  265.     bds_unwind1;
  266.     return;}
  267. }
  268. /*    function definition for CTOP-WRITE    */
  269.  
  270. static L39()
  271. {    register object *base=vs_base;
  272.     register object *sup=base+VM4;
  273.     vs_reserve(VM4);
  274.     bds_check;
  275.     check_arg(1);
  276.     vs_top=sup;
  277. TTL:;
  278.     setq(VV[76],number_plus(symbol_value(VV[76]),VV[77]));
  279.     base[1]= symbol_value(VV[76]);
  280.     base[2]= Cnil;
  281.     setq(VV[8],reverse(symbol_value(VV[8])));
  282.     setq(VV[76],number_plus(symbol_value(VV[76]),VV[77]));
  283.     base[8]= symbol_value(VV[76]);
  284.     bds_bind(VV[78],VV[79]);
  285.     bds_bind(VV[80],VV[79]);
  286.     bds_bind(VV[81],Cnil);
  287.     bds_bind(VV[82],VV[79]);
  288.     bds_bind(VV[83],VV[79]);
  289.     bds_bind(VV[11],base[8]);
  290.     princ_str("\ninit_",VV[84]);
  291.     base[9]= base[0];
  292.     (void)simple_symlispcall_no_event(VV[210],base+9,1);
  293.     princ_str("(start,size,data)char *start;int size;object data;",VV[84]);
  294.     princ_str("\n{    register object *base=vs_top;",VV[84]);
  295.     princ_str("register object *sup=base+VM",VV[84]);
  296.     base[9]= (VV[11]->s.s_dbind);
  297.     (void)simple_symlispcall_no_event(VV[210],base+9,1);
  298.     princ_str(";vs_top=sup;vs_check;",VV[84]);
  299.     princ_str("\n    Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM",VV[84]);
  300.     base[9]= base[1];
  301.     (void)simple_symlispcall_no_event(VV[210],base+9,1);
  302.     princ_str(",data);",VV[84]);
  303.     {object V3;
  304.     base[9]= symbol_value(VV[8]);
  305.     V3= car(base[9]);
  306. T140:;
  307.     if(!(endp(base[9]))){
  308.     goto T141;}
  309.     goto T137;
  310. T141:;
  311.     base[2]= get(car((V3)),VV[51],Cnil);
  312.     if((base[2])==Cnil){
  313.     goto T145;}
  314.     base[10]= base[2];
  315.     {object V4;
  316.     V4= cdr((V3));
  317.      vs_top=base+11;
  318.      while(!endp(V4))
  319.      {vs_push(car(V4));V4=cdr(V4);}
  320.     vs_base=base+11;}
  321.     super_funcall_no_event(base[10]);
  322.     vs_top=sup;
  323. T145:;
  324.     base[9]= cdr(base[9]);
  325.     V3= car(base[9]);
  326.     goto T140;}
  327. T137:;
  328.     princ_str("\n    vs_top=vs_base=base;",VV[84]);
  329.     princ_str("\n}",VV[84]);
  330.     base[9]= make_cons((VV[11]->s.s_dbind),(VV[80]->s.s_dbind));
  331.     setq(VV[10],make_cons(base[9],symbol_value(VV[10])));
  332.     base[9]= symbol_value(VV[10]);
  333.     bds_unwind1;
  334.     bds_unwind1;
  335.     bds_unwind1;
  336.     bds_unwind1;
  337.     bds_unwind1;
  338.     bds_unwind1;
  339.     {object V5;
  340.     base[3]= symbol_value(VV[8]);
  341.     V5= car(base[3]);
  342. T164:;
  343.     if(!(endp(base[3]))){
  344.     goto T165;}
  345.     goto T161;
  346. T165:;
  347.     base[2]= get(car((V5)),VV[62],Cnil);
  348.     if((base[2])==Cnil){
  349.     goto T169;}
  350.     base[4]= base[2];
  351.     {object V6;
  352.     V6= cdr((V5));
  353.      vs_top=base+5;
  354.      while(!endp(V6))
  355.      {vs_push(car(V6));V6=cdr(V6);}
  356.     vs_base=base+5;}
  357.     super_funcall_no_event(base[4]);
  358.     vs_top=sup;
  359. T169:;
  360.     base[3]= cdr(base[3]);
  361.     V5= car(base[3]);
  362.     goto T164;}
  363. T161:;
  364.     base[3]= Cnil;
  365. T182:;
  366.     if(!(endp(symbol_value(VV[5])))){
  367.     goto T184;}
  368.     goto T180;
  369. T184:;
  370.     base[3]= car(symbol_value(VV[5]));
  371.     base[4]= car(symbol_value(VV[5]));
  372.     setq(VV[5],cdr(symbol_value(VV[5])));
  373.     {object V7;
  374.     V7= base[3];
  375.      vs_top=base+4;
  376.      while(!endp(V7))
  377.      {vs_push(car(V7));V7=cdr(V7);}
  378.     vs_base=base+4;}
  379.     L69();
  380.     vs_top=sup;
  381.     goto T182;
  382. T180:;
  383.     {object V8;
  384.     base[3]= symbol_value(VV[12]);
  385.     V8= car(base[3]);
  386. T198:;
  387.     if(!(endp(base[3]))){
  388.     goto T199;}
  389.     goto T195;
  390. T199:;
  391.     {object V9;
  392.     V9= (V8);
  393.      vs_top=base+4;
  394.      while(!endp(V9))
  395.      {vs_push(car(V9));V9=cdr(V9);}
  396.     vs_base=base+4;}
  397.     L46();
  398.     vs_top=sup;
  399.     base[3]= cdr(base[3]);
  400.     V8= car(base[3]);
  401.     goto T198;}
  402. T195:;
  403.     princ_str("\nstatic char *Cstart;static int Csize;static object Cdata;",VV[85]);
  404.     {object V10;
  405.     base[3]= symbol_value(VV[4]);
  406.     V10= car(base[3]);
  407. T215:;
  408.     if(!(endp(base[3]))){
  409.     goto T216;}
  410.     goto T212;
  411. T216:;
  412.     princ_str("\nstatic LC",VV[85]);
  413.     base[4]= structure_ref((V10),VV[86],3);
  414.     (void)simple_symlispcall_no_event(VV[211],base+4,1);
  415.     princ_str("();",VV[85]);
  416.     base[3]= cdr(base[3]);
  417.     V10= car(base[3]);
  418.     goto T215;}
  419. T212:;
  420.     {object V11;
  421.     base[3]= symbol_value(VV[10]);
  422.     V11= car(base[3]);
  423. T233:;
  424.     if(!(endp(base[3]))){
  425.     goto T234;}
  426.     goto T230;
  427. T234:;
  428.     princ_str("\n#define VM",VV[85]);
  429.     base[4]= car((V11));
  430.     (void)simple_symlispcall_no_event(VV[211],base+4,1);
  431.     princ_char(32,VV[85]);
  432.     base[4]= cdr((V11));
  433.     (void)simple_symlispcall_no_event(VV[211],base+4,1);
  434.     base[3]= cdr(base[3]);
  435.     V11= car(base[3]);
  436.     goto T233;}
  437. T230:;
  438.     setq(VV[87],number_plus(symbol_value(VV[87]),VV[77]));
  439.     princ_str("\n#define VM",VV[85]);
  440.     base[3]= base[1];
  441.     (void)simple_symlispcall_no_event(VV[211],base+3,1);
  442.     princ_char(32,VV[85]);
  443.     base[3]= symbol_value(VV[87]);
  444.     (void)simple_symlispcall_no_event(VV[211],base+3,1);
  445.     if(!(number_compare(small_fixnum(0),symbol_value(VV[87]))==0)){
  446.     goto T260;}
  447.     princ_str("\nstatic object VV[1];",VV[85]);
  448.     base[3]= Cnil;
  449.     vs_top=(vs_base=base+3)+1;
  450.     return;
  451. T260:;
  452.     princ_str("\nstatic object VV[",VV[85]);
  453.     base[3]= symbol_value(VV[87]);
  454.     (void)simple_symlispcall_no_event(VV[211],base+3,1);
  455.     princ_str("];",VV[85]);
  456.     base[3]= Cnil;
  457.     vs_top=(vs_base=base+3)+1;
  458.     return;
  459. }
  460. /*    function definition for T1EVAL-WHEN    */
  461.  
  462. static L40()
  463. {    register object *base=vs_base;
  464.     register object *sup=base+VM5;
  465.     vs_reserve(VM5);
  466.     bds_check;
  467.     check_arg(1);
  468.     vs_top=sup;
  469. TTL:;
  470.     {object V12;
  471.     object V13;
  472.     object V14;
  473.     V12= Cnil;
  474.     V13= Cnil;
  475.     V14= Cnil;
  476.     if(!(endp(base[0]))){
  477.     goto T270;}
  478.     base[1]= VV[25];
  479.     base[2]= VV[77];
  480.     base[3]= VV[79];
  481.     (void)simple_symlispcall_no_event(VV[212],base+1,3);
  482. T270:;
  483.     {object V15;
  484.     object V16;
  485.     V15= car(base[0]);
  486.     V16= car((V15));
  487. T280:;
  488.     if(!(endp((V15)))){
  489.     goto T281;}
  490.     goto T276;
  491. T281:;
  492.     {object V17= (V16);
  493.     if((V17!= VV[213]))goto T286;
  494.     V12= Ct;
  495.     goto T285;
  496. T286:;
  497.     if((V17!= VV[214]))goto T288;
  498.     V13= Ct;
  499.     goto T285;
  500. T288:;
  501.     if((V17!= VV[215]))goto T290;
  502.     V14= Ct;
  503.     goto T285;
  504. T290:;
  505.     base[1]= VV[88];
  506.     base[2]= (V16);
  507.     (void)simple_symlispcall_no_event(VV[203],base+1,2);}
  508. T285:;
  509.     V15= cdr((V15));
  510.     V16= car((V15));
  511.     goto T280;}
  512. T276:;
  513.     if(((V12))==Cnil){
  514.     goto T300;}
  515.     if((V13)!=Cnil){
  516.     base[1]= (V13);
  517.     goto T302;}
  518.     if(symbol_value(VV[6])==Cnil){
  519.     base[1]= Cnil;
  520.     goto T302;}
  521.     base[1]= (V14);
  522. T302:;
  523.     bds_bind(VV[6],base[1]);
  524.     {object V18;
  525.     object V19;
  526.     V18= cdr(base[0]);
  527.     V19= car((V18));
  528. T306:;
  529.     if(!(endp((V18)))){
  530.     goto T307;}
  531.     base[2]= Cnil;
  532.     vs_top=(vs_base=base+2)+1;
  533.     bds_unwind1;
  534.     return;
  535. T307:;
  536.     base[2]= (V19);
  537.     vs_top=(vs_base=base+2)+1;
  538.     L38();
  539.     vs_top=sup;
  540.     V18= cdr((V18));
  541.     V19= car((V18));
  542.     goto T306;}
  543. T300:;
  544.     if(((V13))!=Cnil){
  545.     goto T318;}
  546.     if((symbol_value(VV[6]))==Cnil){
  547.     goto T319;}
  548.     if(((V14))==Cnil){
  549.     goto T319;}
  550. T318:;
  551.     setq(VV[9],Ct);
  552.     {object V20;
  553.     object V21;
  554.     V20= cdr(base[0]);
  555.     V21= car((V20));
  556. T330:;
  557.     if(!(endp((V20)))){
  558.     goto T331;}
  559.     base[1]= Cnil;
  560.     vs_top=(vs_base=base+1)+1;
  561.     return;
  562. T331:;
  563.     base[1]= (V21);
  564.     (void)simple_symlispcall_no_event(VV[205],base+1,1);
  565.     V20= cdr((V20));
  566.     V21= car((V20));
  567.     goto T330;}
  568. T319:;
  569.     base[1]= Cnil;
  570.     vs_top=(vs_base=base+1)+1;
  571.     return;}
  572. }
  573. /*    function definition for T1PROGN    */
  574.  
  575. static L41()
  576. {    register object *base=vs_base;
  577.     register object *sup=base+VM6;
  578.     vs_reserve(VM6);
  579.     check_arg(1);
  580.     vs_top=sup;
  581. TTL:;
  582.     {object V22;
  583.     object V23;
  584.     V22= base[0];
  585.     V23= car((V22));
  586. T345:;
  587.     if(!(endp((V22)))){
  588.     goto T346;}
  589.     base[1]= Cnil;
  590.     vs_top=(vs_base=base+1)+1;
  591.     return;
  592. T346:;
  593.     base[1]= (V23);
  594.     vs_top=(vs_base=base+1)+1;
  595.     L38();
  596.     vs_top=sup;
  597.     V22= cdr((V22));
  598.     V23= car((V22));
  599.     goto T345;}
  600. }
  601. /*    function definition for T1DEFUN    */
  602.  
  603. static L42()
  604. {    register object *base=vs_base;
  605.     register object *sup=base+VM7;
  606.     vs_reserve(VM7);
  607.     bds_check;
  608.     check_arg(1);
  609.     vs_top=sup;
  610. TTL:;
  611.     if(endp(base[0])){
  612.     goto T358;}
  613.     if(!(endp(cdr(base[0])))){
  614.     goto T357;}
  615. T358:;
  616.     base[1]= VV[30];
  617.     base[2]= VV[89];
  618.     base[3]= make_fixnum(length(base[0]));
  619.     (void)simple_symlispcall_no_event(VV[212],base+1,3);
  620. T357:;
  621.     if(type_of(car(base[0]))==t_symbol){
  622.     goto T365;}
  623.     base[1]= VV[90];
  624.     base[2]= car(base[0]);
  625.     (void)simple_symlispcall_no_event(VV[203],base+1,2);
  626. T365:;
  627.     if((symbol_value(VV[6]))==Cnil){
  628.     goto T370;}
  629.     base[1]= make_cons(VV[30],base[0]);
  630.     (void)simple_symlispcall_no_event(VV[205],base+1,1);
  631. T370:;
  632.     setq(VV[9],Ct);
  633.     {object V24;
  634.     base[10]= get(car(base[0]),VV[96],Cnil);
  635.     if(base[10]==Cnil)goto T377;
  636.     base[8]= base[10];
  637.     goto T376;
  638. T377:;
  639.     setq(VV[97],number_plus(symbol_value(VV[97]),VV[77]));
  640.     base[8]= symbol_value(VV[97]);
  641. T376:;
  642.     V24= car(base[0]);
  643.     bds_bind(VV[91],Cnil);
  644.     bds_bind(VV[92],Cnil);
  645.     bds_bind(VV[93],Cnil);
  646.     bds_bind(VV[94],Cnil);
  647.     base[5]= Cnil;
  648.     bds_bind(VV[2],Cnil);
  649.     bds_bind(VV[95],Cnil);
  650.     base[9]= Cnil;
  651.     base[10]= cdr(base[0]);
  652.     base[11]= (V24);
  653.     base[5]= simple_symlispcall_no_event(VV[216],base+10,2);
  654.     if((cadddr(base[5]))==Cnil){
  655.     goto T385;}
  656.     base[10]= cadddr(base[5]);
  657.     base[9]= simple_symlispcall_no_event(VV[217],base+10,1);
  658. T385:;
  659.     vs_base=vs_top;
  660.     L53();
  661.     vs_top=sup;
  662.     base[10]= list(6,VV[30],(V24),base[8],base[5],base[9],(VV[95]->s.s_dbind));
  663.     setq(VV[8],make_cons(base[10],symbol_value(VV[8])));
  664.     base[10]= make_cons((V24),base[8]);
  665.     setq(VV[3],make_cons(base[10],symbol_value(VV[3])));
  666.     if((get((V24),VV[98],Cnil))==Cnil){
  667.     goto T396;}
  668.     {object V25;
  669.     V25= caddr(base[5]);
  670.     if(cadr((V25))==Cnil){
  671.     goto T402;}
  672.     goto T396;
  673. T402:;
  674.     if(caddr((V25))==Cnil){
  675.     goto T404;}
  676.     goto T396;
  677. T404:;
  678.     if(cadddr((V25))==Cnil){
  679.     goto T406;}
  680.     goto T396;
  681. T406:;
  682.     if((length(car((V25))))<(10)){
  683.     goto T408;}
  684.     goto T396;
  685. T408:;
  686.     {object V26;
  687.     object V27;
  688.     V26= car((V25));
  689.     V27= get((V24),VV[100],Cnil);
  690. T413:;
  691.     if(!(endp((V26)))){
  692.     goto T414;}
  693.     if(!(endp((V27)))){
  694.     goto T396;}
  695.     goto T400;
  696. T414:;
  697.     {object V28;
  698.     V28= car((V26));
  699.     if(!(structure_ref((V28),VV[101],1)==VV[102])){
  700.     goto T420;}
  701.     if((structure_ref((V28),VV[101],3))!=Cnil){
  702.     goto T420;}
  703.     if(structure_ref((V28),VV[101],4)==VV[103]){
  704.     goto T420;}
  705.     base[10]= car((V27));
  706.     base[11]= structure_ref((V28),VV[101],5);
  707.     if((simple_symlispcall_no_event(VV[218],base+10,2))==Cnil){
  708.     goto T420;}
  709.     {object x= car((V27)),V29= VV[104];
  710.     while(!endp(V29))
  711.     if(eql(x,V29->c.c_car)){
  712.     goto T418;
  713.     }else V29=V29->c.c_cdr;}
  714.     if(structure_ref((V28),VV[101],4)==VV[105]){
  715.     goto T418;}
  716.     {object x= (V28),V30= structure_ref(cadr(base[5]),VV[106],0);
  717.     while(!endp(V30))
  718.     if(eql(x,V30->c.c_car)){
  719.     goto T435;
  720.     }else V30=V30->c.c_cdr;
  721.     goto T418;}
  722. T435:;
  723. T420:;
  724.     goto T396;}
  725. T418:;
  726.     V26= cdr((V26));
  727.     V27= cdr((V27));
  728.     goto T413;}}
  729. T400:;
  730.     if(!(type_of(base[8])==t_fixnum||
  731. type_of(base[8])==t_bignum||
  732. type_of(base[8])==t_ratio||
  733. type_of(base[8])==t_shortfloat||
  734. type_of(base[8])==t_longfloat||
  735. type_of(base[8])==t_complex)){
  736.     goto T396;}
  737.     base[10]= get((V24),VV[100],Cnil);
  738.     base[11]= get((V24),VV[108],Cnil);
  739.     base[13]= get((V24),VV[108],Cnil);
  740.     {object x= base[13],V31= VV[109];
  741.     while(!endp(V31))
  742.     if(eql(x,V31->c.c_car)){
  743.     base[12]= V31;
  744.     goto T444;
  745.     }else V31=V31->c.c_cdr;
  746.     base[12]= Cnil;}
  747. T444:;
  748.     {object V32= ((base[12])==Cnil?Ct:Cnil);
  749.     base[14]= base[8];
  750.     base[15]= get((V24),VV[100],Cnil);
  751.     vs_top=(vs_base=base+14)+2;
  752.     L43();
  753.     vs_top=sup;
  754.     base[13]= vs_base[0];
  755.     base[14]= list(6,(V24),base[10],base[11],Ct,V32,base[13]);
  756.     setq(VV[107],make_cons(base[14],symbol_value(VV[107])));}
  757.     base[10]= symbol_value(VV[107]);
  758.     vs_top=(vs_base=base+10)+1;
  759.     bds_unwind1;
  760.     bds_unwind1;
  761.     bds_unwind1;
  762.     bds_unwind1;
  763.     bds_unwind1;
  764.     bds_unwind1;
  765.     return;
  766. T396:;
  767.     base[10]= Cnil;
  768.     vs_top=(vs_base=base+10)+1;
  769.     bds_unwind1;
  770.     bds_unwind1;
  771.     bds_unwind1;
  772.     bds_unwind1;
  773.     bds_unwind1;
  774.     bds_unwind1;
  775.     return;}
  776. }
  777. /*    function definition for MAKE-INLINE-STRING    */
  778.  
  779. static L43()
  780. {    register object *base=vs_base;
  781.     register object *sup=base+VM8;
  782.     vs_reserve(VM8);
  783.     check_arg(2);
  784.     vs_top=sup;
  785. TTL:;
  786.     if((base[1])!=Cnil){
  787.     goto T450;}
  788.     base[2]= Cnil;
  789.     base[3]= VV[110];
  790.     base[4]= base[0];
  791.     vs_top=(vs_base=base+2)+3;
  792.     Lformat();
  793.     return;
  794. T450:;
  795.     base[3]= VV[111];
  796.     base[4]= VV[112];
  797.     base[5]= VV[113];
  798.     base[6]= VV[114];
  799.     base[7]= VV[79];
  800.     base[2]= simple_symlispcall_no_event(VV[219],base+3,5);
  801.     base[3]= base[2];
  802.     base[4]= VV[115];
  803.     base[5]= base[0];
  804.     vs_top=(vs_base=base+3)+3;
  805.     Lformat();
  806.     vs_top=sup;
  807.     {int V33;
  808.     V33= 0;
  809.     base[3]= base[1];
  810. T468:;
  811.     if(!(endp(cdr(base[3])))){
  812.     goto T469;}
  813.     base[4]= base[2];
  814.     base[5]= VV[116];
  815.     base[6]= make_fixnum(V33);
  816.     vs_top=(vs_base=base+4)+3;
  817.     Lformat();
  818.     vs_top=sup;
  819.     goto T465;
  820. T469:;
  821.     base[4]= base[2];
  822.     base[5]= VV[117];
  823.     base[6]= make_fixnum(V33);
  824.     vs_top=(vs_base=base+4)+3;
  825.     Lformat();
  826.     vs_top=sup;
  827.     base[3]= cdr(base[3]);
  828.     V33= (V33)+1;
  829.     goto T468;}
  830. T465:;
  831.     vs_top=(vs_base=base+2)+1;
  832.     return;
  833. }
  834. /*    function definition for T2DEFUN    */
  835.  
  836. static L44()
  837. {    register object *base=vs_base;
  838.     register object *sup=base+VM9;
  839.     vs_reserve(VM9);
  840.     check_arg(5);
  841.     vs_top=sup;
  842. TTL:;
  843.     base[6]= base[0];
  844.     base[5]= simple_symlispcall_no_event(VV[220],base+6,1);
  845.     if((base[3])==Cnil){
  846.     goto T486;}
  847.     princ_str("\n    (void)putprop(VV[",VV[84]);
  848.     base[6]= base[5];
  849.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  850.     princ_str("],VV[",VV[84]);
  851.     base[6]= base[3];
  852.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  853.     princ_str("],siSfunction_documentation);",VV[84]);
  854.     princ_str("\n    ",VV[84]);
  855.     (void)simple_symlispcall_no_event(VV[221],base+6,0);
  856. T486:;
  857.     if(!(type_of(base[1])==t_fixnum||
  858. type_of(base[1])==t_bignum||
  859. type_of(base[1])==t_ratio||
  860. type_of(base[1])==t_shortfloat||
  861. type_of(base[1])==t_longfloat||
  862. type_of(base[1])==t_complex)){
  863.     goto T499;}
  864.     princ_str("\nstatic L",VV[85]);
  865.     base[6]= base[1];
  866.     (void)simple_symlispcall_no_event(VV[211],base+6,1);
  867.     princ_str("();",VV[85]);
  868.     princ_str("\n    MF(VV[",VV[84]);
  869.     base[6]= base[5];
  870.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  871.     princ_str("],L",VV[84]);
  872.     base[6]= base[1];
  873.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  874.     princ_str(",start,size,data);",VV[84]);
  875.     base[6]= Cnil;
  876.     vs_top=(vs_base=base+6)+1;
  877.     return;
  878. T499:;
  879.     princ_char(10,VV[85]);
  880.     base[6]= base[1];
  881.     (void)simple_symlispcall_no_event(VV[211],base+6,1);
  882.     princ_str("();",VV[85]);
  883.     princ_str("\n    MF(VV[",VV[84]);
  884.     base[6]= base[5];
  885.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  886.     princ_str("],",VV[84]);
  887.     base[6]= base[1];
  888.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  889.     princ_str(",start,size,data);",VV[84]);
  890.     base[6]= Cnil;
  891.     vs_top=(vs_base=base+6)+1;
  892.     return;
  893. }
  894. /*    function definition for T3DEFUN    */
  895.  
  896. static L45()
  897. {    register object *base=vs_base;
  898.     register object *sup=base+VM10;
  899.     vs_reserve(VM10);
  900.     bds_check;
  901.     check_arg(5);
  902.     vs_top=sup;
  903. TTL:;
  904.     {object V34;
  905.     base[5]= Cnil;
  906.     V34= Cnil;
  907.     {object x= base[0],V35= symbol_value(VV[107]);
  908.     while(!endp(V35))
  909.     if(eql(x,car(V35->c.c_car))){
  910.     base[5]= (V35->c.c_car);
  911.     goto T529;
  912.     }else V35=V35->c.c_cdr;
  913.     base[5]= Cnil;}
  914. T529:;
  915.     if((base[5])==Cnil){
  916.     goto T527;}
  917.     V34= caaddr(base[2]);
  918.     base[6]= list(4,base[0],base[1],cadr(base[5]),caddr(base[5]));
  919.     setq(VV[12],make_cons(base[6],symbol_value(VV[12])));
  920.     bds_bind(VV[78],VV[79]);
  921.     bds_bind(VV[80],VV[79]);
  922.     bds_bind(VV[83],VV[79]);
  923.     bds_bind(VV[82],VV[79]);
  924.     bds_bind(VV[81],Cnil);
  925.     {object V36= caddr(base[5]);
  926.     if((V36!= VV[128]))goto T535;
  927.     bds_bind(VV[118],VV[119]);
  928.     goto T534;
  929. T535:;
  930.     if((V36!= VV[129]))goto T536;
  931.     bds_bind(VV[118],VV[120]);
  932.     goto T534;
  933. T536:;
  934.     if((V36!= VV[130]))goto T537;
  935.     bds_bind(VV[118],VV[121]);
  936.     goto T534;
  937. T537:;
  938.     if((V36!= VV[131]))goto T538;
  939.     bds_bind(VV[118],VV[122]);
  940.     goto T534;
  941. T538:;
  942.     bds_bind(VV[118],VV[123]);}
  943. T534:;
  944.     bds_bind(VV[124],make_cons((VV[118]->s.s_dbind),Cnil));
  945.     bds_bind(VV[125],(VV[118]->s.s_dbind));
  946.     setq(VV[76],number_plus(symbol_value(VV[76]),VV[77]));
  947.     bds_bind(VV[11],symbol_value(VV[76]));
  948.     bds_bind(VV[126],Cnil);
  949.     bds_bind(VV[127],Cnil);
  950.     {object V37;
  951.     object V38;
  952.     V37= (V34);
  953.     V38= cadr(base[5]);
  954. T546:;
  955.     if(!(endp((V37)))){
  956.     goto T547;}
  957.     goto T542;
  958. T547:;
  959.     {object V39= car((V37));
  960.     {object V40= car((V38));
  961.     if((V40!= VV[128]))goto T553;
  962.     base[17]= VV[128];
  963.     goto T552;
  964. T553:;
  965.     if((V40!= VV[129]))goto T554;
  966.     base[17]= VV[129];
  967.     goto T552;
  968. T554:;
  969.     if((V40!= VV[130]))goto T555;
  970.     base[17]= VV[130];
  971.     goto T552;
  972. T555:;
  973.     if((V40!= VV[131]))goto T556;
  974.     base[17]= VV[131];
  975.     goto T552;
  976. T556:;
  977.     base[17]= VV[105];}
  978. T552:;
  979.     structure_set(V39,VV[101],1,base[17]);}
  980.     {object V41= car((V37));
  981.     setq(VV[132],number_plus(symbol_value(VV[132]),VV[77]));
  982.     structure_set(V41,VV[101],4,symbol_value(VV[132]));}
  983.     V37= cdr((V37));
  984.     V38= cdr((V38));
  985.     goto T546;}
  986. T542:;
  987.     base[17]= VV[133];
  988.     base[18]= base[0];
  989.     (void)simple_symlispcall_no_event(VV[222],base+17,2);
  990.     princ_str("\nstatic ",VV[85]);
  991.     base[17]=symbol_function(VV[211]);
  992.     base[19]= caddr(base[5]);
  993.     vs_top=(vs_base=base+19)+1;
  994.     L47();
  995.     vs_top=sup;
  996.     base[18]= vs_base[0];
  997.     (void)simple_lispcall_no_event(base+17,1);
  998.     princ_str("LI",VV[85]);
  999.     base[17]= base[1];
  1000.     (void)simple_symlispcall_no_event(VV[211],base+17,1);
  1001.     princ_str("();",VV[85]);
  1002.     princ_str("\nstatic ",VV[84]);
  1003.     base[17]=symbol_function(VV[210]);
  1004.     base[19]= caddr(base[5]);
  1005.     vs_top=(vs_base=base+19)+1;
  1006.     L47();
  1007.     vs_top=sup;
  1008.     base[18]= vs_base[0];
  1009.     (void)simple_lispcall_no_event(base+17,1);
  1010.     princ_str("LI",VV[84]);
  1011.     base[17]= base[1];
  1012.     (void)simple_symlispcall_no_event(VV[210],base+17,1);
  1013.     princ_char(40,VV[84]);
  1014.     {object V42;
  1015.     V42= (V34);
  1016. T587:;
  1017.     if(!(endp((V42)))){
  1018.     goto T588;}
  1019.     goto T584;
  1020. T588:;
  1021.     setq(VV[132],number_plus(symbol_value(VV[132]),VV[77]));
  1022.     base[17]= symbol_value(VV[132]);
  1023.     structure_set(car((V42)),VV[101],4,base[17]);
  1024.     princ_char(86,VV[84]);
  1025.     base[18]= base[17];
  1026.     (void)simple_symlispcall_no_event(VV[210],base+18,1);
  1027.     if(endp(cdr((V42)))){
  1028.     goto T599;}
  1029.     princ_char(44,VV[84]);
  1030. T599:;
  1031.     V42= cdr((V42));
  1032.     goto T587;}
  1033. T584:;
  1034.     princ_char(41,VV[84]);
  1035.     if(((V34))==Cnil){
  1036.     goto T608;}
  1037.     princ_char(10,VV[84]);
  1038.     {object V43;
  1039.     V43= (V34);
  1040.     base[17]= cadr(base[5]);
  1041.     base[18]= Cnil;
  1042. T615:;
  1043.     if(!(endp((V43)))){
  1044.     goto T616;}
  1045.     princ_char(59,VV[84]);
  1046.     goto T608;
  1047. T616:;
  1048.     if((base[18])==Cnil){
  1049.     goto T623;}
  1050.     if(!(car(base[17])==base[18])){
  1051.     goto T626;}
  1052.     princ_char(44,VV[84]);
  1053.     goto T621;
  1054. T626:;
  1055.     princ_char(59,VV[84]);
  1056.     base[19]=symbol_function(VV[210]);
  1057.     base[21]= car(base[17]);
  1058.     vs_top=(vs_base=base+21)+1;
  1059.     L47();
  1060.     vs_top=sup;
  1061.     base[20]= vs_base[0];
  1062.     (void)simple_lispcall_no_event(base+19,1);
  1063.     goto T621;
  1064. T623:;
  1065.     base[19]=symbol_function(VV[210]);
  1066.     base[21]= car(base[17]);
  1067.     vs_top=(vs_base=base+21)+1;
  1068.     L47();
  1069.     vs_top=sup;
  1070.     base[20]= vs_base[0];
  1071.     (void)simple_lispcall_no_event(base+19,1);
  1072. T621:;
  1073.     base[18]= car(base[17]);
  1074.     princ_char(86,VV[84]);
  1075.     base[19]= structure_ref(car((V43)),VV[101],4);
  1076.     (void)simple_symlispcall_no_event(VV[210],base+19,1);
  1077.     V43= cdr((V43));
  1078.     base[17]= cdr(base[17]);
  1079.     goto T615;}
  1080. T608:;
  1081.     base[17]= (VV[11]->s.s_dbind);
  1082.     if((symbol_value(VV[135]))==Cnil){
  1083.     goto T649;}
  1084.     base[18]= make_cons(base[0],(V34));
  1085.     goto T647;
  1086. T649:;
  1087.     base[18]= Cnil;
  1088. T647:;
  1089.     bds_bind(VV[134],base[18]);
  1090.     bds_bind(VV[124],(VV[124]->s.s_dbind));
  1091.     princ_str("\n{    VMB",VV[84]);
  1092.     base[20]= base[17];
  1093.     (void)simple_symlispcall_no_event(VV[210],base+20,1);
  1094.     princ_str(" VMS",VV[84]);
  1095.     base[20]= base[17];
  1096.     (void)simple_symlispcall_no_event(VV[210],base+20,1);
  1097.     princ_str(" VMV",VV[84]);
  1098.     base[20]= base[17];
  1099.     (void)simple_symlispcall_no_event(VV[210],base+20,1);
  1100.     if((base[4])==Cnil){
  1101.     goto T661;}
  1102.     princ_str("\n    bds_check;",VV[84]);
  1103. T661:;
  1104.     if((symbol_value(VV[136]))==Cnil){
  1105.     goto T665;}
  1106.     princ_str("\n    ihs_check;",VV[84]);
  1107. T665:;
  1108.     if(((VV[134]->s.s_dbind))==Cnil){
  1109.     goto T669;}
  1110.     (VV[124]->s.s_dbind)= make_cons(VV[137],(VV[124]->s.s_dbind));
  1111.     princ_str("\nTTL:;",VV[84]);
  1112. T669:;
  1113.     base[20]= caddr(cddr(base[2]));
  1114.     (void)simple_symlispcall_no_event(VV[223],base+20,1);
  1115.     princ_str("\n}",VV[84]);
  1116.     base[20]= make_cons(base[17],(VV[80]->s.s_dbind));
  1117.     setq(VV[10],make_cons(base[20],symbol_value(VV[10])));
  1118.     if(!(number_compare(small_fixnum(0),(VV[80]->s.s_dbind))==0)){
  1119.     goto T683;}
  1120.     if(((VV[127]->s.s_dbind))!=Cnil){
  1121.     goto T683;}
  1122.     princ_str("\n#define VMB",VV[85]);
  1123.     base[20]= base[17];
  1124.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1125.     goto T681;
  1126. T683:;
  1127.     princ_str("\n#define VMB",VV[85]);
  1128.     base[20]= base[17];
  1129.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1130.     princ_str(" register object *base=vs_top;",VV[85]);
  1131. T681:;
  1132.     if(((VV[126]->s.s_dbind))==Cnil){
  1133.     goto T696;}
  1134.     princ_str("\n#define VMS",VV[85]);
  1135.     base[20]= base[17];
  1136.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1137.     princ_str(" register object *sup=vs_top+",VV[85]);
  1138.     base[20]= (VV[80]->s.s_dbind);
  1139.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1140.     princ_str(";vs_top=sup;",VV[85]);
  1141.     goto T694;
  1142. T696:;
  1143.     if(!(number_compare(small_fixnum(0),(VV[80]->s.s_dbind))==0)){
  1144.     goto T706;}
  1145.     princ_str("\n#define VMS",VV[85]);
  1146.     base[20]= base[17];
  1147.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1148.     goto T694;
  1149. T706:;
  1150.     princ_str("\n#define VMS",VV[85]);
  1151.     base[20]= base[17];
  1152.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1153.     princ_str(" vs_top += ",VV[85]);
  1154.     base[20]= (VV[80]->s.s_dbind);
  1155.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1156.     princ_char(59,VV[85]);
  1157. T694:;
  1158.     if(!(number_compare(small_fixnum(0),(VV[80]->s.s_dbind))==0)){
  1159.     goto T720;}
  1160.     princ_str("\n#define VMV",VV[85]);
  1161.     base[20]= base[17];
  1162.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1163.     goto T718;
  1164. T720:;
  1165.     if((symbol_value(VV[138]))==Cnil){
  1166.     goto T726;}
  1167.     princ_str("\n#define VMV",VV[85]);
  1168.     base[20]= base[17];
  1169.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1170.     princ_str(" vs_reserve(",VV[85]);
  1171.     base[20]= (VV[80]->s.s_dbind);
  1172.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1173.     princ_str(");",VV[85]);
  1174.     goto T718;
  1175. T726:;
  1176.     princ_str("\n#define VMV",VV[85]);
  1177.     base[20]= base[17];
  1178.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1179.     princ_str(" vs_check;",VV[85]);
  1180. T718:;
  1181.     if(!(number_compare(small_fixnum(0),(VV[80]->s.s_dbind))==0)){
  1182.     goto T740;}
  1183.     princ_str("\n#define VMR",VV[85]);
  1184.     base[20]= base[17];
  1185.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1186.     princ_str("(VMT",VV[85]);
  1187.     base[20]= base[17];
  1188.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1189.     princ_str(") return(VMT",VV[85]);
  1190.     base[20]= base[17];
  1191.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1192.     princ_str(");",VV[85]);
  1193.     base[20]= Cnil;
  1194.     vs_top=(vs_base=base+20)+1;
  1195.     bds_unwind1;
  1196.     bds_unwind1;
  1197.     bds_unwind1;
  1198.     bds_unwind1;
  1199.     bds_unwind1;
  1200.     bds_unwind1;
  1201.     bds_unwind1;
  1202.     bds_unwind1;
  1203.     bds_unwind1;
  1204.     bds_unwind1;
  1205.     bds_unwind1;
  1206.     bds_unwind1;
  1207.     bds_unwind1;
  1208.     return;
  1209. T740:;
  1210.     {object x= caddr(base[5]),V44= VV[139];
  1211.     while(!endp(V44))
  1212.     if(eql(x,V44->c.c_car)){
  1213.     goto T754;
  1214.     }else V44=V44->c.c_cdr;
  1215.     goto T753;}
  1216. T754:;
  1217.     setq(VV[132],number_plus(symbol_value(VV[132]),VV[77]));
  1218.     base[20]= symbol_value(VV[132]);
  1219.     princ_str("\n#define VMR",VV[85]);
  1220.     base[21]= base[17];
  1221.     (void)simple_symlispcall_no_event(VV[211],base+21,1);
  1222.     princ_str("(VMT",VV[85]);
  1223.     base[21]= base[17];
  1224.     (void)simple_symlispcall_no_event(VV[211],base+21,1);
  1225.     princ_char(41,VV[85]);
  1226.     princ_str(" {",VV[85]);
  1227.     base[21]=symbol_function(VV[211]);
  1228.     base[23]= caddr(base[5]);
  1229.     vs_top=(vs_base=base+23)+1;
  1230.     L47();
  1231.     vs_top=sup;
  1232.     base[22]= vs_base[0];
  1233.     (void)simple_lispcall_no_event(base+21,1);
  1234.     princ_char(86,VV[85]);
  1235.     base[21]= base[20];
  1236.     (void)simple_symlispcall_no_event(VV[211],base+21,1);
  1237.     princ_str("=VMT",VV[85]);
  1238.     base[21]= base[17];
  1239.     (void)simple_symlispcall_no_event(VV[211],base+21,1);
  1240.     princ_str(";vs_top=base;return(V",VV[85]);
  1241.     base[21]= base[20];
  1242.     (void)simple_symlispcall_no_event(VV[211],base+21,1);
  1243.     princ_str(");}",VV[85]);
  1244.     base[21]= Cnil;
  1245.     vs_top=(vs_base=base+21)+1;
  1246.     bds_unwind1;
  1247.     bds_unwind1;
  1248.     bds_unwind1;
  1249.     bds_unwind1;
  1250.     bds_unwind1;
  1251.     bds_unwind1;
  1252.     bds_unwind1;
  1253.     bds_unwind1;
  1254.     bds_unwind1;
  1255.     bds_unwind1;
  1256.     bds_unwind1;
  1257.     bds_unwind1;
  1258.     bds_unwind1;
  1259.     return;
  1260. T753:;
  1261.     princ_str("\n#define VMR",VV[85]);
  1262.     base[20]= base[17];
  1263.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1264.     princ_str("(VMT",VV[85]);
  1265.     base[20]= base[17];
  1266.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1267.     princ_char(41,VV[85]);
  1268.     princ_str(" {CMPtemp=VMT",VV[85]);
  1269.     base[20]= base[17];
  1270.     (void)simple_symlispcall_no_event(VV[211],base+20,1);
  1271.     princ_str(";vs_top=base;return(CMPtemp);}",VV[85]);
  1272.     base[20]= Cnil;
  1273.     vs_top=(vs_base=base+20)+1;
  1274.     bds_unwind1;
  1275.     bds_unwind1;
  1276.     bds_unwind1;
  1277.     bds_unwind1;
  1278.     bds_unwind1;
  1279.     bds_unwind1;
  1280.     bds_unwind1;
  1281.     bds_unwind1;
  1282.     bds_unwind1;
  1283.     bds_unwind1;
  1284.     bds_unwind1;
  1285.     bds_unwind1;
  1286.     bds_unwind1;
  1287.     return;
  1288. T527:;
  1289.     setq(VV[76],number_plus(symbol_value(VV[76]),VV[77]));
  1290.     base[14]= symbol_value(VV[76]);
  1291.     bds_bind(VV[78],VV[79]);
  1292.     bds_bind(VV[80],VV[79]);
  1293.     bds_bind(VV[83],VV[79]);
  1294.     bds_bind(VV[82],VV[79]);
  1295.     bds_bind(VV[81],Cnil);
  1296.     bds_bind(VV[118],VV[140]);
  1297.     bds_bind(VV[124],VV[141]);
  1298.     bds_bind(VV[125],VV[140]);
  1299.     bds_bind(VV[11],base[14]);
  1300.     base[15]= VV[142];
  1301.     base[16]= base[0];
  1302.     (void)simple_symlispcall_no_event(VV[222],base+15,2);
  1303.     if(!(type_of(base[1])==t_fixnum||
  1304. type_of(base[1])==t_bignum||
  1305. type_of(base[1])==t_ratio||
  1306. type_of(base[1])==t_shortfloat||
  1307. type_of(base[1])==t_longfloat||
  1308. type_of(base[1])==t_complex)){
  1309.     goto T796;}
  1310.     princ_str("\nstatic L",VV[84]);
  1311.     base[15]= base[1];
  1312.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1313.     princ_str("()",VV[84]);
  1314.     goto T794;
  1315. T796:;
  1316.     princ_char(10,VV[84]);
  1317.     base[15]= base[1];
  1318.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1319.     princ_str("()",VV[84]);
  1320. T794:;
  1321.     princ_str("\n{    register object *base=vs_base;",VV[84]);
  1322.     princ_str("\n    register object *sup=base+VM",VV[84]);
  1323.     base[15]= (VV[11]->s.s_dbind);
  1324.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1325.     princ_char(59,VV[84]);
  1326.     if((symbol_value(VV[138]))==Cnil){
  1327.     goto T815;}
  1328.     princ_str("\n    vs_reserve(VM",VV[84]);
  1329.     base[15]= (VV[11]->s.s_dbind);
  1330.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1331.     princ_str(");",VV[84]);
  1332.     goto T813;
  1333. T815:;
  1334.     princ_str("\n    vs_check;",VV[84]);
  1335. T813:;
  1336.     if((base[4])==Cnil){
  1337.     goto T822;}
  1338.     princ_str("\n    bds_check;",VV[84]);
  1339. T822:;
  1340.     if((symbol_value(VV[136]))==Cnil){
  1341.     goto T826;}
  1342.     princ_str("\n    ihs_check;",VV[84]);
  1343. T826:;
  1344.     base[15]= caddr(base[2]);
  1345.     base[16]= caddr(cddr(base[2]));
  1346.     base[17]= base[0];
  1347.     (void)simple_symlispcall_no_event(VV[224],base+15,3);
  1348.     princ_str("\n}",VV[84]);
  1349.     base[15]= make_cons((VV[11]->s.s_dbind),(VV[80]->s.s_dbind));
  1350.     setq(VV[10],make_cons(base[15],symbol_value(VV[10])));
  1351.     base[15]= symbol_value(VV[10]);
  1352.     vs_top=(vs_base=base+15)+1;
  1353.     bds_unwind1;
  1354.     bds_unwind1;
  1355.     bds_unwind1;
  1356.     bds_unwind1;
  1357.     bds_unwind1;
  1358.     bds_unwind1;
  1359.     bds_unwind1;
  1360.     bds_unwind1;
  1361.     bds_unwind1;
  1362.     return;}
  1363. }
  1364. /*    function definition for WT-GLOBAL-ENTRY    */
  1365.  
  1366. static L46()
  1367. {    register object *base=vs_base;
  1368.     register object *sup=base+VM11;
  1369.     vs_reserve(VM11);
  1370.     check_arg(4);
  1371.     vs_top=sup;
  1372. TTL:;
  1373.     base[4]= VV[143];
  1374.     base[5]= base[0];
  1375.     (void)simple_symlispcall_no_event(VV[222],base+4,2);
  1376.     princ_str("\nstatic L",VV[84]);
  1377.     base[4]= base[1];
  1378.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  1379.     princ_str("()",VV[84]);
  1380.     princ_str("\n{    register object *base=vs_base;",VV[84]);
  1381.     if((symbol_value(VV[138]))!=Cnil){
  1382.     goto T848;}
  1383.     if((symbol_value(VV[144]))==Cnil){
  1384.     goto T847;}
  1385. T848:;
  1386.     princ_str("\n    check_arg(",VV[84]);
  1387.     base[4]= make_fixnum(length(base[2]));
  1388.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  1389.     princ_str(");",VV[84]);
  1390. T847:;
  1391.     princ_str("\n    base[0]=",VV[84]);
  1392.     base[4]=symbol_function(VV[210]);
  1393.     {object V45= base[3];
  1394.     if((V45!= VV[128]))goto T860;
  1395.     if(!(number_compare(small_fixnum(0),symbol_value(VV[145]))==0)){
  1396.     goto T862;}
  1397.     base[5]= VV[146];
  1398.     goto T859;
  1399. T862:;
  1400.     base[5]= VV[147];
  1401.     goto T859;
  1402. T860:;
  1403.     if((V45!= VV[129]))goto T864;
  1404.     base[5]= VV[148];
  1405.     goto T859;
  1406. T864:;
  1407.     if((V45!= VV[130]))goto T865;
  1408.     base[5]= VV[149];
  1409.     goto T859;
  1410. T865:;
  1411.     if((V45!= VV[131]))goto T866;
  1412.     base[5]= VV[150];
  1413.     goto T859;
  1414. T866:;
  1415.     base[5]= VV[151];}
  1416. T859:;
  1417.     (void)simple_lispcall_no_event(base+4,1);
  1418.     princ_str("(LI",VV[84]);
  1419.     base[4]= base[1];
  1420.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  1421.     princ_char(40,VV[84]);
  1422.     {object V46;
  1423.     int V47;
  1424.     V46= base[2];
  1425.     V47= 0;
  1426. T875:;
  1427.     if(!(endp((V46)))){
  1428.     goto T876;}
  1429.     goto T871;
  1430. T876:;
  1431.     base[4]=symbol_function(VV[210]);
  1432.     {object V48= car((V46));
  1433.     if((V48!= VV[128]))goto T883;
  1434.     base[5]= VV[152];
  1435.     goto T882;
  1436. T883:;
  1437.     if((V48!= VV[129]))goto T884;
  1438.     base[5]= VV[153];
  1439.     goto T882;
  1440. T884:;
  1441.     if((V48!= VV[130]))goto T885;
  1442.     base[5]= VV[154];
  1443.     goto T882;
  1444. T885:;
  1445.     if((V48!= VV[131]))goto T886;
  1446.     base[5]= VV[155];
  1447.     goto T882;
  1448. T886:;
  1449.     base[5]= VV[156];}
  1450. T882:;
  1451.     (void)simple_lispcall_no_event(base+4,1);
  1452.     princ_str("(base[",VV[84]);
  1453.     base[4]= make_fixnum(V47);
  1454.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  1455.     princ_str("])",VV[84]);
  1456.     if(endp(cdr((V46)))){
  1457.     goto T891;}
  1458.     princ_char(44,VV[84]);
  1459. T891:;
  1460.     V46= cdr((V46));
  1461.     V47= (V47)+1;
  1462.     goto T875;}
  1463. T871:;
  1464.     princ_str("));",VV[84]);
  1465.     princ_str("\n    vs_top=(vs_base=base)+1;",VV[84]);
  1466.     princ_str("\n}",VV[84]);
  1467.     base[4]= Cnil;
  1468.     vs_top=(vs_base=base+4)+1;
  1469.     return;
  1470. }
  1471. /*    function definition for REP-TYPE    */
  1472.  
  1473. static L47()
  1474. {    register object *base=vs_base;
  1475.     register object *sup=base+VM12;
  1476.     vs_reserve(VM12);
  1477.     check_arg(1);
  1478.     vs_top=sup;
  1479. TTL:;
  1480.     {object V49= base[0];
  1481.     if((V49!= VV[128]))goto T904;
  1482.     base[1]= VV[157];
  1483.     vs_top=(vs_base=base+1)+1;
  1484.     return;
  1485. T904:;
  1486.     if((V49!= VV[129]))goto T905;
  1487.     base[1]= VV[158];
  1488.     vs_top=(vs_base=base+1)+1;
  1489.     return;
  1490. T905:;
  1491.     if((V49!= VV[131]))goto T906;
  1492.     base[1]= VV[159];
  1493.     vs_top=(vs_base=base+1)+1;
  1494.     return;
  1495. T906:;
  1496.     if((V49!= VV[130]))goto T907;
  1497.     base[1]= VV[160];
  1498.     vs_top=(vs_base=base+1)+1;
  1499.     return;
  1500. T907:;
  1501.     base[1]= VV[161];
  1502.     vs_top=(vs_base=base+1)+1;
  1503.     return;}
  1504. }
  1505. /*    function definition for T1DEFMACRO    */
  1506.  
  1507. static L48()
  1508. {    register object *base=vs_base;
  1509.     register object *sup=base+VM13;
  1510.     vs_reserve(VM13);
  1511.     bds_check;
  1512.     check_arg(1);
  1513.     vs_top=sup;
  1514. TTL:;
  1515.     if(endp(base[0])){
  1516.     goto T909;}
  1517.     if(!(endp(cdr(base[0])))){
  1518.     goto T908;}
  1519. T909:;
  1520.     base[1]= VV[32];
  1521.     base[2]= VV[89];
  1522.     base[3]= make_fixnum(length(base[0]));
  1523.     (void)simple_symlispcall_no_event(VV[212],base+1,3);
  1524. T908:;
  1525.     if(type_of(car(base[0]))==t_symbol){
  1526.     goto T916;}
  1527.     base[1]= VV[162];
  1528.     base[2]= car(base[0]);
  1529.     (void)simple_symlispcall_no_event(VV[203],base+1,2);
  1530. T916:;
  1531.     if((symbol_value(VV[6]))==Cnil){
  1532.     goto T921;}
  1533.     base[1]= make_cons(VV[32],base[0]);
  1534.     (void)simple_symlispcall_no_event(VV[205],base+1,1);
  1535. T921:;
  1536.     setq(VV[9],Ct);
  1537.     setq(VV[97],number_plus(symbol_value(VV[97]),VV[77]));
  1538.     base[8]= symbol_value(VV[97]);
  1539.     bds_bind(VV[91],Cnil);
  1540.     bds_bind(VV[92],Cnil);
  1541.     bds_bind(VV[93],Cnil);
  1542.     bds_bind(VV[94],Cnil);
  1543.     bds_bind(VV[2],Cnil);
  1544.     bds_bind(VV[95],Cnil);
  1545.     base[7]= Cnil;
  1546.     base[9]= Cnil;
  1547.     base[10]= Cnil;
  1548.     base[11]= car(base[0]);
  1549.     base[12]= cadr(base[0]);
  1550.     base[13]= cddr(base[0]);
  1551.     base[7]= simple_symlispcall_no_event(VV[225],base+11,3);
  1552.     if((car(base[7]))==Cnil){
  1553.     goto T934;}
  1554.     base[11]= car(base[7]);
  1555.     base[9]= simple_symlispcall_no_event(VV[217],base+11,1);
  1556. T934:;
  1557.     if((cadr(base[7]))==Cnil){
  1558.     goto T939;}
  1559.     base[11]= cadr(base[7]);
  1560.     base[10]= simple_symlispcall_no_event(VV[217],base+11,1);
  1561. T939:;
  1562.     vs_base=vs_top;
  1563.     L53();
  1564.     vs_top=sup;
  1565.     base[11]= list(7,VV[32],car(base[0]),base[8],cddr(base[7]),base[9],base[10],(VV[95]->s.s_dbind));
  1566.     setq(VV[8],make_cons(base[11],symbol_value(VV[8])));
  1567.     base[11]= symbol_value(VV[8]);
  1568.     vs_top=(vs_base=base+11)+1;
  1569.     bds_unwind1;
  1570.     bds_unwind1;
  1571.     bds_unwind1;
  1572.     bds_unwind1;
  1573.     bds_unwind1;
  1574.     bds_unwind1;
  1575.     return;
  1576. }
  1577. /*    function definition for T2DEFMACRO    */
  1578.  
  1579. static L49()
  1580. {    register object *base=vs_base;
  1581.     register object *sup=base+VM14;
  1582.     vs_reserve(VM14);
  1583.     check_arg(6);
  1584.     vs_top=sup;
  1585. TTL:;
  1586.     base[7]= base[0];
  1587.     base[6]= simple_symlispcall_no_event(VV[220],base+7,1);
  1588.     if((base[3])==Cnil){
  1589.     goto T948;}
  1590.     princ_str("\n    (void)putprop(VV[",VV[84]);
  1591.     base[7]= base[6];
  1592.     (void)simple_symlispcall_no_event(VV[210],base+7,1);
  1593.     princ_str("],VV[",VV[84]);
  1594.     base[7]= base[3];
  1595.     (void)simple_symlispcall_no_event(VV[210],base+7,1);
  1596.     princ_str("],siSfunction_documentation);",VV[84]);
  1597.     princ_str("\n    ",VV[84]);
  1598.     (void)simple_symlispcall_no_event(VV[221],base+7,0);
  1599. T948:;
  1600.     if((base[4])==Cnil){
  1601.     goto T960;}
  1602.     princ_str("\n    (void)putprop(VV[",VV[84]);
  1603.     base[7]= base[6];
  1604.     (void)simple_symlispcall_no_event(VV[210],base+7,1);
  1605.     princ_str("],VV[",VV[84]);
  1606.     base[7]= base[4];
  1607.     (void)simple_symlispcall_no_event(VV[210],base+7,1);
  1608.     princ_str("],siSpretty_print_format);",VV[84]);
  1609.     princ_str("\n    ",VV[84]);
  1610.     (void)simple_symlispcall_no_event(VV[221],base+7,0);
  1611. T960:;
  1612.     princ_str("\nstatic L",VV[85]);
  1613.     base[7]= base[1];
  1614.     (void)simple_symlispcall_no_event(VV[211],base+7,1);
  1615.     princ_str("();",VV[85]);
  1616.     princ_str("\n    MM(VV[",VV[84]);
  1617.     base[7]= base[6];
  1618.     (void)simple_symlispcall_no_event(VV[210],base+7,1);
  1619.     princ_str("],L",VV[84]);
  1620.     base[7]= base[1];
  1621.     (void)simple_symlispcall_no_event(VV[210],base+7,1);
  1622.     princ_str(",start,size,data);",VV[84]);
  1623.     base[7]= Cnil;
  1624.     vs_top=(vs_base=base+7)+1;
  1625.     return;
  1626. }
  1627. /*    function definition for T3DEFMACRO    */
  1628.  
  1629. static L50()
  1630. {    register object *base=vs_base;
  1631.     register object *sup=base+VM15;
  1632.     vs_reserve(VM15);
  1633.     bds_check;
  1634.     check_arg(6);
  1635.     vs_top=sup;
  1636. TTL:;
  1637.     bds_bind(VV[78],VV[79]);
  1638.     bds_bind(VV[80],VV[79]);
  1639.     bds_bind(VV[81],Cnil);
  1640.     bds_bind(VV[82],VV[79]);
  1641.     bds_bind(VV[83],VV[79]);
  1642.     bds_bind(VV[118],VV[140]);
  1643.     bds_bind(VV[124],VV[163]);
  1644.     bds_bind(VV[125],VV[140]);
  1645.     setq(VV[76],number_plus(symbol_value(VV[76]),VV[77]));
  1646.     bds_bind(VV[11],symbol_value(VV[76]));
  1647.     base[15]= VV[164];
  1648.     base[16]= base[0];
  1649.     (void)simple_symlispcall_no_event(VV[222],base+15,2);
  1650.     princ_str("\nstatic L",VV[84]);
  1651.     base[15]= base[1];
  1652.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1653.     princ_str("()",VV[84]);
  1654.     princ_str("\n{    register object *base=vs_base;",VV[84]);
  1655.     princ_str("\n    register object *sup=base+VM",VV[84]);
  1656.     base[15]= (VV[11]->s.s_dbind);
  1657.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1658.     princ_char(59,VV[84]);
  1659.     if((symbol_value(VV[138]))==Cnil){
  1660.     goto T1003;}
  1661.     princ_str("\n    vs_reserve(VM",VV[84]);
  1662.     base[15]= (VV[11]->s.s_dbind);
  1663.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  1664.     princ_str(");",VV[84]);
  1665.     goto T1001;
  1666. T1003:;
  1667.     princ_str("\n    vs_check;",VV[84]);
  1668. T1001:;
  1669.     if((base[5])==Cnil){
  1670.     goto T1010;}
  1671.     princ_str("\n    bds_check;",VV[84]);
  1672. T1010:;
  1673.     if((symbol_value(VV[136]))==Cnil){
  1674.     goto T1014;}
  1675.     princ_str("\n    ihs_check;",VV[84]);
  1676. T1014:;
  1677.     base[15]= car(base[2]);
  1678.     base[16]= cadr(base[2]);
  1679.     base[17]= caddr(base[2]);
  1680.     base[18]= cadddr(base[2]);
  1681.     (void)simple_symlispcall_no_event(VV[226],base+15,4);
  1682.     princ_str("\n}",VV[84]);
  1683.     base[15]= make_cons((VV[11]->s.s_dbind),(VV[80]->s.s_dbind));
  1684.     setq(VV[10],make_cons(base[15],symbol_value(VV[10])));
  1685.     base[15]= symbol_value(VV[10]);
  1686.     vs_top=(vs_base=base+15)+1;
  1687.     bds_unwind1;
  1688.     bds_unwind1;
  1689.     bds_unwind1;
  1690.     bds_unwind1;
  1691.     bds_unwind1;
  1692.     bds_unwind1;
  1693.     bds_unwind1;
  1694.     bds_unwind1;
  1695.     bds_unwind1;
  1696.     return;
  1697. }
  1698. /*    function definition for T1ORDINARY    */
  1699.  
  1700. static L51()
  1701. {    register object *base=vs_base;
  1702.     register object *sup=base+VM16;
  1703.     vs_reserve(VM16);
  1704.     bds_check;
  1705.     check_arg(1);
  1706.     vs_top=sup;
  1707. TTL:;
  1708.     if((symbol_value(VV[6]))==Cnil){
  1709.     goto T1026;}
  1710.     base[1]= base[0];
  1711.     (void)simple_symlispcall_no_event(VV[205],base+1,1);
  1712. T1026:;
  1713.     setq(VV[9],Ct);
  1714.     bds_bind(VV[91],Cnil);
  1715.     bds_bind(VV[92],Cnil);
  1716.     bds_bind(VV[93],Cnil);
  1717.     bds_bind(VV[94],Cnil);
  1718.     bds_bind(VV[2],Cnil);
  1719.     base[6]= base[0];
  1720.     base[0]= simple_symlispcall_no_event(VV[227],base+6,1);
  1721.     vs_base=vs_top;
  1722.     L53();
  1723.     vs_top=sup;
  1724.     setq(VV[97],number_plus(symbol_value(VV[97]),VV[77]));
  1725.     base[6]= list(3,VV[53],symbol_value(VV[97]),base[0]);
  1726.     setq(VV[8],make_cons(base[6],symbol_value(VV[8])));
  1727.     base[6]= symbol_value(VV[8]);
  1728.     vs_top=(vs_base=base+6)+1;
  1729.     bds_unwind1;
  1730.     bds_unwind1;
  1731.     bds_unwind1;
  1732.     bds_unwind1;
  1733.     bds_unwind1;
  1734.     return;
  1735. }
  1736. /*    function definition for T2ORDINARY    */
  1737.  
  1738. static L52()
  1739. {    register object *base=vs_base;
  1740.     register object *sup=base+VM17;
  1741.     vs_reserve(VM17);
  1742.     bds_check;
  1743.     check_arg(2);
  1744.     vs_top=sup;
  1745. TTL:;
  1746.     setq(VV[165],number_plus(symbol_value(VV[165]),VV[77]));
  1747.     bds_bind(VV[118],make_cons(symbol_value(VV[165]),Cnil));
  1748.     bds_bind(VV[124],make_cons((VV[118]->s.s_dbind),Cnil));
  1749.     bds_bind(VV[125],VV[166]);
  1750.     base[5]= base[1];
  1751.     (void)simple_symlispcall_no_event(VV[223],base+5,1);
  1752.     if((cdr((VV[118]->s.s_dbind)))==Cnil){
  1753.     goto T1044;}
  1754.     princ_str("\nT",VV[84]);
  1755.     base[5]= car((VV[118]->s.s_dbind));
  1756.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  1757.     princ_str(":;",VV[84]);
  1758.     base[5]= Cnil;
  1759.     vs_top=(vs_base=base+5)+1;
  1760.     bds_unwind1;
  1761.     bds_unwind1;
  1762.     bds_unwind1;
  1763.     return;
  1764. T1044:;
  1765.     base[5]= Cnil;
  1766.     vs_top=(vs_base=base+5)+1;
  1767.     bds_unwind1;
  1768.     bds_unwind1;
  1769.     bds_unwind1;
  1770.     return;
  1771. }
  1772. /*    function definition for ADD-LOAD-TIME-SHARP-COMMA    */
  1773.  
  1774. static L53()
  1775. {    register object *base=vs_base;
  1776.     register object *sup=base+VM18;
  1777.     vs_reserve(VM18);
  1778.     check_arg(0);
  1779.     vs_top=sup;
  1780. TTL:;
  1781.     {object V50;
  1782.     base[0]= reverse(symbol_value(VV[2]));
  1783.     V50= car(base[0]);
  1784. T1053:;
  1785.     if(!(endp(base[0]))){
  1786.     goto T1054;}
  1787.     base[1]= Cnil;
  1788.     vs_top=(vs_base=base+1)+1;
  1789.     return;
  1790. T1054:;
  1791.     base[1]= list(2,VV[57],(V50));
  1792.     setq(VV[8],make_cons(base[1],symbol_value(VV[8])));
  1793.     base[0]= cdr(base[0]);
  1794.     V50= car(base[0]);
  1795.     goto T1053;}
  1796. }
  1797. /*    function definition for T2SHARP-COMMA    */
  1798.  
  1799. static L54()
  1800. {    register object *base=vs_base;
  1801.     register object *sup=base+VM19;
  1802.     vs_reserve(VM19);
  1803.     check_arg(1);
  1804.     vs_top=sup;
  1805. TTL:;
  1806.     princ_str("\n    data->v.v_self[",VV[84]);
  1807.     base[1]= base[0];
  1808.     (void)simple_symlispcall_no_event(VV[210],base+1,1);
  1809.     princ_str("]=VV[",VV[84]);
  1810.     base[1]= base[0];
  1811.     (void)simple_symlispcall_no_event(VV[210],base+1,1);
  1812.     princ_str("]=string_to_object(VV[",VV[84]);
  1813.     base[1]= base[0];
  1814.     (void)simple_symlispcall_no_event(VV[210],base+1,1);
  1815.     princ_str("]);",VV[84]);
  1816.     princ_str("\n    ",VV[84]);
  1817.     symlispcall_no_event(VV[221],base+1,0);
  1818.     return;
  1819. }
  1820. /*    function definition for T2DECLARE    */
  1821.  
  1822. static L55()
  1823. {    register object *base=vs_base;
  1824.     register object *sup=base+VM20;
  1825.     vs_reserve(VM20);
  1826.     check_arg(1);
  1827.     vs_top=sup;
  1828. TTL:;
  1829.     princ_str("\n    VV[",VV[84]);
  1830.     base[1]= base[0];
  1831.     (void)simple_symlispcall_no_event(VV[210],base+1,1);
  1832.     princ_str("]->s.s_stype=(short)stp_special;",VV[84]);
  1833.     base[1]= Cnil;
  1834.     vs_top=(vs_base=base+1)+1;
  1835.     return;
  1836. }
  1837. /*    function definition for T1DEFVAR    */
  1838.  
  1839. static L56()
  1840. {    register object *base=vs_base;
  1841.     register object *sup=base+VM21;
  1842.     vs_reserve(VM21);
  1843.     bds_check;
  1844.     check_arg(1);
  1845.     vs_top=sup;
  1846. TTL:;
  1847.     base[1]= Cnil;
  1848.     base[2]= Cnil;
  1849.     if((symbol_value(VV[6]))==Cnil){
  1850.     goto T1081;}
  1851.     base[3]= make_cons(VV[42],base[0]);
  1852.     (void)simple_symlispcall_no_event(VV[205],base+3,1);
  1853. T1081:;
  1854.     setq(VV[9],Cnil);
  1855.     if(!(endp(cdr(base[0])))){
  1856.     goto T1088;}
  1857.     base[4]= car(base[0]);
  1858.     base[3]= simple_symlispcall_no_event(VV[220],base+4,1);
  1859.     base[4]= list(2,VV[55],base[3]);
  1860.     setq(VV[8],make_cons(base[4],symbol_value(VV[8])));
  1861.     base[3]= symbol_value(VV[8]);
  1862.     vs_top=(vs_base=base+3)+1;
  1863.     return;
  1864. T1088:;
  1865.     if(endp(cddr(base[0]))){
  1866.     goto T1093;}
  1867.     base[3]= caddr(base[0]);
  1868.     base[2]= simple_symlispcall_no_event(VV[217],base+3,1);
  1869. T1093:;
  1870.     bds_bind(VV[91],Cnil);
  1871.     bds_bind(VV[92],Cnil);
  1872.     bds_bind(VV[93],Cnil);
  1873.     bds_bind(VV[94],Cnil);
  1874.     bds_bind(VV[2],Cnil);
  1875.     base[8]= cadr(base[0]);
  1876.     base[1]= simple_symlispcall_no_event(VV[227],base+8,1);
  1877.     vs_base=vs_top;
  1878.     L53();
  1879.     vs_top=sup;
  1880.     bds_unwind1;
  1881.     bds_unwind1;
  1882.     bds_unwind1;
  1883.     bds_unwind1;
  1884.     bds_unwind1;
  1885.     base[4]= car(base[0]);
  1886.     base[3]= simple_symlispcall_no_event(VV[220],base+4,1);
  1887.     base[4]= list(4,VV[42],base[3],base[1],base[2]);
  1888.     setq(VV[8],make_cons(base[4],symbol_value(VV[8])));
  1889.     base[3]= symbol_value(VV[8]);
  1890.     vs_top=(vs_base=base+3)+1;
  1891.     return;
  1892. }
  1893. /*    function definition for T2DEFVAR    */
  1894.  
  1895. static L57()
  1896. {    register object *base=vs_base;
  1897.     register object *sup=base+VM22;
  1898.     vs_reserve(VM22);
  1899.     bds_check;
  1900.     check_arg(3);
  1901.     vs_top=sup;
  1902. TTL:;
  1903.     princ_str("\n    VV[",VV[84]);
  1904.     base[3]= base[0];
  1905.     (void)simple_symlispcall_no_event(VV[210],base+3,1);
  1906.     princ_str("]->s.s_stype=(short)stp_special;",VV[84]);
  1907.     setq(VV[165],number_plus(symbol_value(VV[165]),VV[77]));
  1908.     bds_bind(VV[118],make_cons(symbol_value(VV[165]),Cnil));
  1909.     bds_bind(VV[124],make_cons((VV[118]->s.s_dbind),Cnil));
  1910.     bds_bind(VV[125],list(2,VV[167],base[0]));
  1911.     princ_str("\n    if(VV[",VV[84]);
  1912.     base[6]= base[0];
  1913.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  1914.     princ_str("]->s.s_dbind == OBJNULL){",VV[84]);
  1915.     base[6]= base[1];
  1916.     (void)simple_symlispcall_no_event(VV[223],base+6,1);
  1917.     princ_char(125,VV[84]);
  1918.     if((cdr((VV[118]->s.s_dbind)))==Cnil){
  1919.     bds_unwind1;
  1920.     bds_unwind1;
  1921.     bds_unwind1;
  1922.     goto T1110;}
  1923.     princ_str("\nT",VV[84]);
  1924.     base[6]= car((VV[118]->s.s_dbind));
  1925.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  1926.     princ_str(":;",VV[84]);
  1927.     bds_unwind1;
  1928.     bds_unwind1;
  1929.     bds_unwind1;
  1930. T1110:;
  1931.     if((base[2])==Cnil){
  1932.     goto T1131;}
  1933.     princ_str("\n    (void)putprop(VV[",VV[84]);
  1934.     base[3]= base[0];
  1935.     (void)simple_symlispcall_no_event(VV[210],base+3,1);
  1936.     princ_str("],VV[",VV[84]);
  1937.     base[3]= base[2];
  1938.     (void)simple_symlispcall_no_event(VV[210],base+3,1);
  1939.     princ_str("],siSvariable_documentation);",VV[84]);
  1940.     princ_str("\n    ",VV[84]);
  1941.     symlispcall_no_event(VV[221],base+3,0);
  1942.     return;
  1943. T1131:;
  1944.     base[3]= Cnil;
  1945.     vs_top=(vs_base=base+3)+1;
  1946.     return;
  1947. }
  1948. /*    function definition for SET-DBIND    */
  1949.  
  1950. static L59()
  1951. {    register object *base=vs_base;
  1952.     register object *sup=base+VM23;
  1953.     vs_reserve(VM23);
  1954.     check_arg(2);
  1955.     vs_top=sup;
  1956. TTL:;
  1957.     princ_str("\n    VV[",VV[84]);
  1958.     base[2]= base[1];
  1959.     (void)simple_symlispcall_no_event(VV[210],base+2,1);
  1960.     princ_str("]->s.s_dbind = ",VV[84]);
  1961.     base[2]= base[0];
  1962.     (void)simple_symlispcall_no_event(VV[210],base+2,1);
  1963.     princ_char(59,VV[84]);
  1964.     base[2]= Cnil;
  1965.     vs_top=(vs_base=base+2)+1;
  1966.     return;
  1967. }
  1968. /*    function definition for T1CLINES    */
  1969.  
  1970. static L60()
  1971. {    register object *base=vs_base;
  1972.     register object *sup=base+VM24;
  1973.     vs_reserve(VM24);
  1974.     check_arg(1);
  1975.     vs_top=sup;
  1976. TTL:;
  1977.     {object V51;
  1978.     object V52;
  1979.     V51= base[0];
  1980.     V52= car((V51));
  1981. T1153:;
  1982.     if(!(endp((V51)))){
  1983.     goto T1154;}
  1984.     goto T1149;
  1985. T1154:;
  1986.     if(type_of((V52))==t_string){
  1987.     goto T1158;}
  1988.     base[1]= VV[170];
  1989.     base[2]= (V52);
  1990.     (void)simple_symlispcall_no_event(VV[203],base+1,2);
  1991. T1158:;
  1992.     V51= cdr((V51));
  1993.     V52= car((V51));
  1994.     goto T1153;}
  1995. T1149:;
  1996.     base[1]= list(2,VV[34],base[0]);
  1997.     setq(VV[8],make_cons(base[1],symbol_value(VV[8])));
  1998.     base[1]= symbol_value(VV[8]);
  1999.     vs_top=(vs_base=base+1)+1;
  2000.     return;
  2001. }
  2002. /*    function definition for T3CLINES    */
  2003.  
  2004. static L61()
  2005. {    register object *base=vs_base;
  2006.     register object *sup=base+VM25;
  2007.     vs_reserve(VM25);
  2008.     check_arg(1);
  2009.     vs_top=sup;
  2010. TTL:;
  2011.     {object V53;
  2012.     object V54;
  2013.     V53= base[0];
  2014.     V54= car((V53));
  2015. T1172:;
  2016.     if(!(endp((V53)))){
  2017.     goto T1173;}
  2018.     base[1]= Cnil;
  2019.     vs_top=(vs_base=base+1)+1;
  2020.     return;
  2021. T1173:;
  2022.     princ_char(10,VV[84]);
  2023.     base[1]= (V54);
  2024.     (void)simple_symlispcall_no_event(VV[210],base+1,1);
  2025.     V53= cdr((V53));
  2026.     V54= car((V53));
  2027.     goto T1172;}
  2028. }
  2029. /*    function definition for T1DEFCFUN    */
  2030.  
  2031. static L62()
  2032. {    register object *base=vs_base;
  2033.     register object *sup=base+VM26;
  2034.     vs_reserve(VM26);
  2035.     check_arg(1);
  2036.     vs_top=sup;
  2037. TTL:;
  2038.     base[1]= Cnil;
  2039.     if(endp(base[0])){
  2040.     goto T1187;}
  2041.     if(!(endp(cdr(base[0])))){
  2042.     goto T1186;}
  2043. T1187:;
  2044.     base[2]= VV[36];
  2045.     base[3]= VV[89];
  2046.     base[4]= make_fixnum(length(base[0]));
  2047.     (void)simple_symlispcall_no_event(VV[212],base+2,3);
  2048. T1186:;
  2049.     if(type_of(car(base[0]))==t_string){
  2050.     goto T1194;}
  2051.     base[2]= VV[171];
  2052.     base[3]= car(base[0]);
  2053.     (void)simple_symlispcall_no_event(VV[203],base+2,2);
  2054. T1194:;
  2055.     if(type_of(cadr(base[0]))==t_fixnum||
  2056. type_of(cadr(base[0]))==t_bignum||
  2057. type_of(cadr(base[0]))==t_ratio||
  2058. type_of(cadr(base[0]))==t_shortfloat||
  2059. type_of(cadr(base[0]))==t_longfloat||
  2060. type_of(cadr(base[0]))==t_complex){
  2061.     goto T1199;}
  2062.     base[2]= VV[172];
  2063.     base[3]= cadr(base[0]);
  2064.     (void)simple_symlispcall_no_event(VV[203],base+2,2);
  2065. T1199:;
  2066.     {object V55;
  2067.     object V56;
  2068.     V55= cddr(base[0]);
  2069.     V56= car((V55));
  2070. T1208:;
  2071.     if(!(endp((V55)))){
  2072.     goto T1209;}
  2073.     goto T1204;
  2074. T1209:;
  2075.     if(!(type_of((V56))==t_string)){
  2076.     goto T1215;}
  2077.     base[1]= make_cons((V56),base[1]);
  2078.     goto T1213;
  2079. T1215:;
  2080.     if(!(type_of((V56))==t_cons)){
  2081.     goto T1219;}
  2082.     if(!(type_of(car((V56)))==t_symbol)){
  2083.     goto T1222;}
  2084.     base[2]= car((V56));
  2085.     vs_top=(vs_base=base+2)+1;
  2086.     Lspecial_form_p();
  2087.     vs_top=sup;
  2088.     if((vs_base[0])==Cnil){
  2089.     goto T1224;}
  2090.     base[2]= VV[173];
  2091.     base[3]= car((V56));
  2092.     (void)simple_symlispcall_no_event(VV[203],base+2,2);
  2093. T1224:;
  2094.     {object V57= car((V56));
  2095.     base[3]= cdr((V56));
  2096.     vs_top=(vs_base=base+3)+1;
  2097.     L68();
  2098.     vs_top=sup;
  2099.     base[2]= vs_base[0];
  2100.     base[3]= make_cons(V57,base[2]);
  2101.     base[4]= make_cons(base[3],Cnil);
  2102.     base[1]= make_cons(base[4],base[1]);}
  2103.     goto T1213;
  2104. T1222:;
  2105.     if(!(type_of(car((V56)))==t_cons)){
  2106.     goto T1234;}
  2107.     if(!(type_of(caar((V56)))==t_symbol)){
  2108.     goto T1234;}
  2109.     if(!(caar((V56))==VV[174])){
  2110.     goto T1241;}
  2111.     if(!(endp(cdar((V56))))){
  2112.     goto T1243;}
  2113.     goto T1234;
  2114. T1243:;
  2115.     if(!(((endp(cddar((V56)))?Ct:Cnil))==Cnil)){
  2116.     goto T1245;}
  2117.     goto T1234;
  2118. T1245:;
  2119.     if(!(endp(cdr((V56))))){
  2120.     goto T1247;}
  2121.     goto T1234;
  2122. T1247:;
  2123.     if(((endp(cddr((V56)))?Ct:Cnil))==Cnil){
  2124.     goto T1234;}
  2125.     goto T1239;
  2126. T1241:;
  2127.     base[2]= caar((V56));
  2128.     vs_top=(vs_base=base+2)+1;
  2129.     Lspecial_form_p();
  2130.     vs_top=sup;
  2131.     if((vs_base[0])!=Cnil){
  2132.     goto T1234;}
  2133. T1239:;
  2134.     {object V58= caar((V56));
  2135.     if(!(caar((V56))==VV[174])){
  2136.     goto T1253;}
  2137.     base[4]= cadar((V56));
  2138.     base[3]= simple_symlispcall_no_event(VV[217],base+4,1);
  2139.     base[2]= make_cons(base[3],Cnil);
  2140.     goto T1251;
  2141. T1253:;
  2142.     base[3]= cdar((V56));
  2143.     vs_top=(vs_base=base+3)+1;
  2144.     L68();
  2145.     vs_top=sup;
  2146.     base[2]= vs_base[0];
  2147. T1251:;
  2148.     base[3]= make_cons(V58,base[2]);
  2149.     base[5]= cdr((V56));
  2150.     vs_top=(vs_base=base+5)+1;
  2151.     L68();
  2152.     vs_top=sup;
  2153.     base[4]= vs_base[0];
  2154.     base[5]= make_cons(base[3],base[4]);
  2155.     base[1]= make_cons(base[5],base[1]);}
  2156.     goto T1213;
  2157. T1234:;
  2158.     base[2]= VV[175];
  2159.     base[3]= (V56);
  2160.     (void)simple_symlispcall_no_event(VV[203],base+2,2);
  2161.     goto T1213;
  2162. T1219:;
  2163.     base[2]= VV[176];
  2164.     base[3]= (V56);
  2165.     (void)simple_symlispcall_no_event(VV[203],base+2,2);
  2166. T1213:;
  2167.     V55= cdr((V55));
  2168.     V56= car((V55));
  2169.     goto T1208;}
  2170. T1204:;
  2171.     {object V59= car(base[0]);
  2172.     {object V60= cadr(base[0]);
  2173.     base[2]= reverse(base[1]);
  2174.     base[3]= list(4,VV[36],V59,V60,base[2]);
  2175.     setq(VV[8],make_cons(base[3],symbol_value(VV[8])));}}
  2176.     base[2]= symbol_value(VV[8]);
  2177.     vs_top=(vs_base=base+2)+1;
  2178.     return;
  2179. }
  2180. /*    function definition for T3DEFCFUN    */
  2181.  
  2182. static L63()
  2183. {    register object *base=vs_base;
  2184.     register object *sup=base+VM27;
  2185.     vs_reserve(VM27);
  2186.     check_arg(3);
  2187.     vs_top=sup;
  2188. TTL:;
  2189.     base[3]= Cnil;
  2190.     base[4]= VV[177];
  2191.     base[5]= VV[36];
  2192.     (void)simple_symlispcall_no_event(VV[222],base+4,2);
  2193.     princ_char(10,VV[84]);
  2194.     base[4]= base[0];
  2195.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2196.     princ_str("\n{",VV[84]);
  2197.     princ_str("\nobject *vs=vs_top;",VV[84]);
  2198.     princ_str("\nobject *old_top=vs_top+",VV[84]);
  2199.     base[4]= base[1];
  2200.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2201.     princ_char(59,VV[84]);
  2202.     if(!(number_compare(base[1],VV[79])>0)){
  2203.     goto T1286;}
  2204.     princ_str("\n    vs_top=old_top;",VV[84]);
  2205. T1286:;
  2206.     princ_str("\n{",VV[84]);
  2207.     {object V61;
  2208.     object V62;
  2209.     V61= base[2];
  2210.     V62= car((V61));
  2211. T1296:;
  2212.     if(!(endp((V61)))){
  2213.     goto T1297;}
  2214.     goto T1292;
  2215. T1297:;
  2216.     if(!(type_of((V62))==t_string)){
  2217.     goto T1303;}
  2218.     princ_char(10,VV[84]);
  2219.     base[4]= (V62);
  2220.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2221.     goto T1301;
  2222. T1303:;
  2223.     if(!(caar((V62))==VV[174])){
  2224.     goto T1309;}
  2225.     princ_char(10,VV[84]);
  2226.     base[4]= cadadr((V62));
  2227.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2228.     {object V63= caadr((V62));
  2229.     if((V63!= VV[105]))goto T1315;
  2230.     princ_str("=VV[",VV[84]);
  2231.     base[4]= cadar((V62));
  2232.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2233.     princ_str("];",VV[84]);
  2234.     goto T1301;
  2235. T1315:;
  2236.     princ_str("=object_to_",VV[84]);
  2237.     base[4]=symbol_function(VV[210]);
  2238.     base[7]= caadr((V62));
  2239.     vs_top=(vs_base=base+7)+1;
  2240.     Lsymbol_name();
  2241.     vs_top=sup;
  2242.     base[6]= vs_base[0];
  2243.     vs_top=(vs_base=base+6)+1;
  2244.     Lstring_downcase();
  2245.     vs_top=sup;
  2246.     base[5]= vs_base[0];
  2247.     (void)simple_lispcall_no_event(base+4,1);
  2248.     princ_str("(VV[",VV[84]);
  2249.     base[4]= cadar((V62));
  2250.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2251.     princ_str("]);",VV[84]);
  2252.     goto T1301;}
  2253. T1309:;
  2254.     princ_str("\n{vs_base=vs_top=old_top;",VV[84]);
  2255.     {object V64;
  2256.     object V65;
  2257.     V64= cdar((V62));
  2258.     V65= car((V64));
  2259. T1335:;
  2260.     if(!(endp((V64)))){
  2261.     goto T1336;}
  2262.     goto T1331;
  2263. T1336:;
  2264.     princ_str("\nvs_push(",VV[84]);
  2265.     {object V66= car((V65));
  2266.     if((V66!= VV[105]))goto T1343;
  2267.     base[4]= cadr((V65));
  2268.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2269.     goto T1342;
  2270. T1343:;
  2271.     if((V66!= VV[228]))goto T1346;
  2272.     princ_str("code_char((int)",VV[84]);
  2273.     base[4]= cadr((V65));
  2274.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2275.     princ_char(41,VV[84]);
  2276.     goto T1342;
  2277. T1346:;
  2278.     if((V66!= VV[229]))goto T1351;
  2279.     if(!(number_compare(small_fixnum(0),symbol_value(VV[145]))==0)){
  2280.     goto T1352;}
  2281.     princ_str("CMP",VV[84]);
  2282. T1352:;
  2283.     princ_str("make_fixnum((int)",VV[84]);
  2284.     base[4]= cadr((V65));
  2285.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2286.     princ_char(41,VV[84]);
  2287.     goto T1342;
  2288. T1351:;
  2289.     if((V66!= VV[230]))goto T1360;
  2290.     princ_str("make_shortfloat((double)",VV[84]);
  2291.     base[4]= cadr((V65));
  2292.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2293.     princ_char(41,VV[84]);
  2294.     goto T1342;
  2295. T1360:;
  2296.     if((V66!= VV[231]))goto T1365;
  2297.     princ_str("make_longfloat((double)",VV[84]);
  2298.     base[4]= cadr((V65));
  2299.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2300.     princ_char(41,VV[84]);
  2301.     goto T1342;
  2302. T1365:;}
  2303. T1342:;
  2304.     princ_str(");",VV[84]);
  2305.     V64= cdr((V64));
  2306.     V65= car((V64));
  2307.     goto T1335;}
  2308. T1331:;
  2309.     {object x= caar((V62)),V67= symbol_value(VV[3]);
  2310.     while(!endp(V67))
  2311.     if(eql(x,car(V67->c.c_car))){
  2312.     base[3]= (V67->c.c_car);
  2313.     goto T1381;
  2314.     }else V67=V67->c.c_cdr;
  2315.     base[3]= Cnil;}
  2316. T1381:;
  2317.     if((base[3])==Cnil){
  2318.     goto T1379;}
  2319.     if((symbol_value(VV[136]))==Cnil){
  2320.     goto T1383;}
  2321.     princ_str("\nihs_push(VV[",VV[84]);
  2322.     base[4]=symbol_function(VV[210]);
  2323.     base[6]= caar((V62));
  2324.     base[5]= simple_symlispcall_no_event(VV[220],base+6,1);
  2325.     (void)simple_lispcall_no_event(base+4,1);
  2326.     princ_str("]);",VV[84]);
  2327.     princ_str("\nL",VV[84]);
  2328.     base[4]= cdr(base[3]);
  2329.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2330.     princ_str("();",VV[84]);
  2331.     princ_str("\nihs_pop();",VV[84]);
  2332.     goto T1377;
  2333. T1383:;
  2334.     princ_str("\nL",VV[84]);
  2335.     base[4]= cdr(base[3]);
  2336.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2337.     princ_str("();",VV[84]);
  2338.     goto T1377;
  2339. T1379:;
  2340.     if((symbol_value(VV[136]))==Cnil){
  2341.     goto T1402;}
  2342.     princ_str("\nsuper_funcall(VV[",VV[84]);
  2343.     base[4]=symbol_function(VV[210]);
  2344.     base[6]= caar((V62));
  2345.     base[5]= simple_symlispcall_no_event(VV[220],base+6,1);
  2346.     (void)simple_lispcall_no_event(base+4,1);
  2347.     princ_str("]);",VV[84]);
  2348.     goto T1377;
  2349. T1402:;
  2350.     if((symbol_value(VV[138]))==Cnil){
  2351.     goto T1410;}
  2352.     princ_str("\nsuper_funcall_no_event(VV[",VV[84]);
  2353.     base[4]=symbol_function(VV[210]);
  2354.     base[6]= caar((V62));
  2355.     base[5]= simple_symlispcall_no_event(VV[220],base+6,1);
  2356.     (void)simple_lispcall_no_event(base+4,1);
  2357.     princ_str("]);",VV[84]);
  2358.     goto T1377;
  2359. T1410:;
  2360.     princ_str("\nCMPfuncall(VV[",VV[84]);
  2361.     base[4]=symbol_function(VV[210]);
  2362.     base[6]= caar((V62));
  2363.     base[5]= simple_symlispcall_no_event(VV[220],base+6,1);
  2364.     (void)simple_lispcall_no_event(base+4,1);
  2365.     princ_str("]->s.s_gfdef);",VV[84]);
  2366. T1377:;
  2367.     if(endp(cdr((V62)))){
  2368.     goto T1422;}
  2369.     princ_char(10,VV[84]);
  2370.     base[4]= cadadr((V62));
  2371.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2372.     {object V68= caadr((V62));
  2373.     if((V68!= VV[105]))goto T1430;
  2374.     princ_str("=vs_base[0];",VV[84]);
  2375.     goto T1429;
  2376. T1430:;
  2377.     princ_str("=object_to_",VV[84]);
  2378.     base[4]=symbol_function(VV[210]);
  2379.     base[7]= caadr((V62));
  2380.     vs_top=(vs_base=base+7)+1;
  2381.     Lsymbol_name();
  2382.     vs_top=sup;
  2383.     base[6]= vs_base[0];
  2384.     vs_top=(vs_base=base+6)+1;
  2385.     Lstring_downcase();
  2386.     vs_top=sup;
  2387.     base[5]= vs_base[0];
  2388.     (void)simple_lispcall_no_event(base+4,1);
  2389.     princ_str("(vs_base[0]);",VV[84]);}
  2390. T1429:;
  2391.     {object V69;
  2392.     object V70;
  2393.     V69= cddr((V62));
  2394.     V70= car((V69));
  2395. T1441:;
  2396.     if(!(endp((V69)))){
  2397.     goto T1442;}
  2398.     goto T1422;
  2399. T1442:;
  2400.     princ_str("\nvs_base++;",VV[84]);
  2401.     princ_char(10,VV[84]);
  2402.     base[4]= cadr((V70));
  2403.     (void)simple_symlispcall_no_event(VV[210],base+4,1);
  2404.     {object V71= car((V70));
  2405.     if((V71!= VV[105]))goto T1453;
  2406.     princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[84]);
  2407.     goto T1452;
  2408. T1453:;
  2409.     princ_str("=object_to_",VV[84]);
  2410.     base[4]=symbol_function(VV[210]);
  2411.     base[7]= car((V70));
  2412.     vs_top=(vs_base=base+7)+1;
  2413.     Lsymbol_name();
  2414.     vs_top=sup;
  2415.     base[6]= vs_base[0];
  2416.     vs_top=(vs_base=base+6)+1;
  2417.     Lstring_downcase();
  2418.     vs_top=sup;
  2419.     base[5]= vs_base[0];
  2420.     (void)simple_lispcall_no_event(base+4,1);
  2421.     princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[84]);}
  2422. T1452:;
  2423.     V69= cdr((V69));
  2424.     V70= car((V69));
  2425.     goto T1441;}
  2426. T1422:;
  2427.     princ_str("\n}",VV[84]);
  2428. T1301:;
  2429.     V61= cdr((V61));
  2430.     V62= car((V61));
  2431.     goto T1296;}
  2432. T1292:;
  2433.     princ_str("\n}",VV[84]);
  2434.     princ_str("\nvs_top=vs;",VV[84]);
  2435.     princ_str("\n}",VV[84]);
  2436.     base[4]= Cnil;
  2437.     vs_top=(vs_base=base+4)+1;
  2438.     return;
  2439. }
  2440. /*    function definition for T1DEFENTRY    */
  2441.  
  2442. static L64()
  2443. {    register object *base=vs_base;
  2444.     register object *sup=base+VM28;
  2445.     vs_reserve(VM28);
  2446.     check_arg(1);
  2447.     vs_top=sup;
  2448. TTL:;
  2449.     base[1]= Cnil;
  2450.     base[2]= Cnil;
  2451.     setq(VV[97],number_plus(symbol_value(VV[97]),VV[77]));
  2452.     base[3]= symbol_value(VV[97]);
  2453.     base[4]= Cnil;
  2454.     if(endp(base[0])){
  2455.     goto T1480;}
  2456.     if(endp(cdr(base[0]))){
  2457.     goto T1480;}
  2458.     if(!(endp(cddr(base[0])))){
  2459.     goto T1479;}
  2460. T1480:;
  2461.     base[5]= VV[38];
  2462.     base[6]= VV[178];
  2463.     base[7]= make_fixnum(length(base[0]));
  2464.     (void)simple_symlispcall_no_event(VV[212],base+5,3);
  2465. T1479:;
  2466.     if(type_of(car(base[0]))==t_symbol){
  2467.     goto T1489;}
  2468.     base[5]= VV[179];
  2469.     base[6]= car(base[0]);
  2470.     (void)simple_symlispcall_no_event(VV[203],base+5,2);
  2471. T1489:;
  2472.     {object V72;
  2473.     object V73;
  2474.     V72= cadr(base[0]);
  2475.     V73= car((V72));
  2476. T1498:;
  2477.     if(!(endp((V72)))){
  2478.     goto T1499;}
  2479.     goto T1494;
  2480. T1499:;
  2481.     {object x= (V73),V74= VV[180];
  2482.     while(!endp(V74))
  2483.     if(eql(x,V74->c.c_car)){
  2484.     goto T1503;
  2485.     }else V74=V74->c.c_cdr;}
  2486.     base[5]= VV[181];
  2487.     base[6]= (V73);
  2488.     (void)simple_symlispcall_no_event(VV[203],base+5,2);
  2489. T1503:;
  2490.     V72= cdr((V72));
  2491.     V73= car((V72));
  2492.     goto T1498;}
  2493. T1494:;
  2494.     base[4]= caddr(base[0]);
  2495.     if(!(type_of(base[4])==t_symbol)){
  2496.     goto T1517;}
  2497.     base[1]= VV[105];
  2498.     base[6]= base[4];
  2499.     vs_top=(vs_base=base+6)+1;
  2500.     Lsymbol_name();
  2501.     vs_top=sup;
  2502.     base[5]= vs_base[0];
  2503.     vs_top=(vs_base=base+5)+1;
  2504.     Lstring_downcase();
  2505.     vs_top=sup;
  2506.     base[2]= vs_base[0];
  2507.     goto T1515;
  2508. T1517:;
  2509.     if(!(type_of(base[4])==t_string)){
  2510.     goto T1525;}
  2511.     base[1]= VV[105];
  2512.     base[2]= base[4];
  2513.     goto T1515;
  2514. T1525:;
  2515.     if(!(type_of(base[4])==t_cons)){
  2516.     goto T1531;}
  2517.     {object x= car(base[4]),V75= VV[182];
  2518.     while(!endp(V75))
  2519.     if(eql(x,V75->c.c_car)){
  2520.     goto T1535;
  2521.     }else V75=V75->c.c_cdr;
  2522.     goto T1531;}
  2523. T1535:;
  2524.     if(!(type_of(cdr(base[4]))==t_cons)){
  2525.     goto T1531;}
  2526.     if(type_of(cadr(base[4]))==t_symbol){
  2527.     goto T1538;}
  2528.     if(!(type_of(cadr(base[4]))==t_string)){
  2529.     goto T1531;}
  2530. T1538:;
  2531.     if(!(endp(cddr(base[4])))){
  2532.     goto T1531;}
  2533.     if(!(type_of(cadr(base[4]))==t_symbol)){
  2534.     goto T1546;}
  2535.     base[6]= cadr(base[4]);
  2536.     vs_top=(vs_base=base+6)+1;
  2537.     Lsymbol_name();
  2538.     vs_top=sup;
  2539.     base[5]= vs_base[0];
  2540.     vs_top=(vs_base=base+5)+1;
  2541.     Lstring_downcase();
  2542.     vs_top=sup;
  2543.     base[2]= vs_base[0];
  2544.     goto T1544;
  2545. T1546:;
  2546.     base[2]= cadr(base[4]);
  2547. T1544:;
  2548.     base[1]= car(base[4]);
  2549.     goto T1515;
  2550. T1531:;
  2551.     base[5]= VV[183];
  2552.     base[6]= base[4];
  2553.     (void)simple_symlispcall_no_event(VV[203],base+5,2);
  2554. T1515:;
  2555.     base[5]= list(6,VV[38],car(base[0]),base[3],cadr(base[0]),base[1],base[2]);
  2556.     setq(VV[8],make_cons(base[5],symbol_value(VV[8])));
  2557.     base[5]= make_cons(car(base[0]),base[3]);
  2558.     setq(VV[3],make_cons(base[5],symbol_value(VV[3])));
  2559.     base[5]= symbol_value(VV[3]);
  2560.     vs_top=(vs_base=base+5)+1;
  2561.     return;
  2562. }
  2563. /*    function definition for T2DEFENTRY    */
  2564.  
  2565. static L65()
  2566. {    register object *base=vs_base;
  2567.     register object *sup=base+VM29;
  2568.     vs_reserve(VM29);
  2569.     check_arg(5);
  2570.     vs_top=sup;
  2571. TTL:;
  2572.     base[6]= base[0];
  2573.     base[5]= simple_symlispcall_no_event(VV[220],base+6,1);
  2574.     princ_str("\nstatic L",VV[85]);
  2575.     base[6]= base[1];
  2576.     (void)simple_symlispcall_no_event(VV[211],base+6,1);
  2577.     princ_str("();",VV[85]);
  2578.     princ_str("\n    MF(VV[",VV[84]);
  2579.     base[6]= base[5];
  2580.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  2581.     princ_str("],L",VV[84]);
  2582.     base[6]= base[1];
  2583.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  2584.     princ_str(",start,size,data);",VV[84]);
  2585.     base[6]= Cnil;
  2586.     vs_top=(vs_base=base+6)+1;
  2587.     return;
  2588. }
  2589. /*    function definition for T3DEFENTRY    */
  2590.  
  2591. static L66()
  2592. {    register object *base=vs_base;
  2593.     register object *sup=base+VM30;
  2594.     vs_reserve(VM30);
  2595.     check_arg(5);
  2596.     vs_top=sup;
  2597. TTL:;
  2598.     base[5]= VV[184];
  2599.     base[6]= base[0];
  2600.     (void)simple_symlispcall_no_event(VV[222],base+5,2);
  2601.     princ_str("\nstatic L",VV[84]);
  2602.     base[5]= base[1];
  2603.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  2604.     princ_str("()",VV[84]);
  2605.     princ_str("\n{    object *old_base=vs_base;",VV[84]);
  2606.     if(base[3]==VV[185]){
  2607.     goto T1580;}
  2608.     princ_str("\n    ",VV[84]);
  2609.     base[5]=symbol_function(VV[210]);
  2610.     base[8]= base[3];
  2611.     vs_top=(vs_base=base+8)+1;
  2612.     Lsymbol_name();
  2613.     vs_top=sup;
  2614.     base[7]= vs_base[0];
  2615.     vs_top=(vs_base=base+7)+1;
  2616.     Lstring_downcase();
  2617.     vs_top=sup;
  2618.     base[6]= vs_base[0];
  2619.     (void)simple_lispcall_no_event(base+5,1);
  2620.     princ_str(" x;",VV[84]);
  2621. T1580:;
  2622.     if((symbol_value(VV[138]))==Cnil){
  2623.     goto T1589;}
  2624.     princ_str("\n    check_arg(",VV[84]);
  2625.     base[5]= make_fixnum(length(base[2]));
  2626.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  2627.     princ_str(");",VV[84]);
  2628. T1589:;
  2629.     if(base[3]==VV[185]){
  2630.     goto T1596;}
  2631.     princ_str("\n    x=",VV[84]);
  2632. T1596:;
  2633.     princ_str("\n    ",VV[84]);
  2634.     base[5]= base[4];
  2635.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  2636.     princ_char(40,VV[84]);
  2637.     if(endp(base[2])){
  2638.     goto T1605;}
  2639.     {object V76;
  2640.     int V77;
  2641.     V76= base[2];
  2642.     V77= 0;
  2643. T1611:;
  2644.     {object V78= car((V76));
  2645.     if((V78!= VV[105]))goto T1615;
  2646.     princ_str("\n    vs_base[",VV[84]);
  2647.     base[5]= make_fixnum(V77);
  2648.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  2649.     princ_char(93,VV[84]);
  2650.     goto T1614;
  2651. T1615:;
  2652.     princ_str("\n    object_to_",VV[84]);
  2653.     base[5]=symbol_function(VV[210]);
  2654.     base[8]= car((V76));
  2655.     vs_top=(vs_base=base+8)+1;
  2656.     Lsymbol_name();
  2657.     vs_top=sup;
  2658.     base[7]= vs_base[0];
  2659.     vs_top=(vs_base=base+7)+1;
  2660.     Lstring_downcase();
  2661.     vs_top=sup;
  2662.     base[6]= vs_base[0];
  2663.     (void)simple_lispcall_no_event(base+5,1);
  2664.     princ_str("(vs_base[",VV[84]);
  2665.     base[5]= make_fixnum(V77);
  2666.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  2667.     princ_str("])",VV[84]);}
  2668. T1614:;
  2669.     if(!(endp(cdr((V76))))){
  2670.     goto T1629;}
  2671.     goto T1605;
  2672. T1629:;
  2673.     princ_char(44,VV[84]);
  2674.     V76= cdr((V76));
  2675.     V77= (V77)+1;
  2676.     goto T1611;}
  2677. T1605:;
  2678.     princ_str(");",VV[84]);
  2679.     princ_str("\n    vs_top=(vs_base=old_base)+1;",VV[84]);
  2680.     princ_str("\n    vs_base[0]=",VV[84]);
  2681.     {object V79= base[3];
  2682.     if((V79!= VV[185]))goto T1645;
  2683.     princ_str("Cnil",VV[84]);
  2684.     goto T1644;
  2685. T1645:;
  2686.     if((V79!= VV[105]))goto T1647;
  2687.     princ_char(120,VV[84]);
  2688.     goto T1644;
  2689. T1647:;
  2690.     if((V79!= VV[228]))goto T1649;
  2691.     princ_str("code_char(x)",VV[84]);
  2692.     goto T1644;
  2693. T1649:;
  2694.     if((V79!= VV[229]))goto T1651;
  2695.     if(!(number_compare(small_fixnum(0),symbol_value(VV[145]))==0)){
  2696.     goto T1652;}
  2697.     princ_str("CMP",VV[84]);
  2698. T1652:;
  2699.     princ_str("make_fixnum(x)",VV[84]);
  2700.     goto T1644;
  2701. T1651:;
  2702.     if((V79!= VV[230]))goto T1657;
  2703.     princ_str("make_shortfloat(x)",VV[84]);
  2704.     goto T1644;
  2705. T1657:;
  2706.     if((V79!= VV[231]))goto T1659;
  2707.     princ_str("make_longfloat(x)",VV[84]);
  2708.     goto T1644;
  2709. T1659:;}
  2710. T1644:;
  2711.     princ_char(59,VV[84]);
  2712.     princ_str("\n}",VV[84]);
  2713.     base[5]= Cnil;
  2714.     vs_top=(vs_base=base+5)+1;
  2715.     return;
  2716. }
  2717. /*    function definition for T1DEFLA    */
  2718.  
  2719. static L67()
  2720. {    register object *base=vs_base;
  2721.     register object *sup=base+VM31;
  2722.     vs_reserve(VM31);
  2723.     check_arg(1);
  2724.     vs_top=sup;
  2725. TTL:;
  2726.     base[1]= Cnil;
  2727.     vs_top=(vs_base=base+1)+1;
  2728.     return;
  2729. }
  2730. /*    function definition for PARSE-CVSPECS    */
  2731.  
  2732. static L68()
  2733. {    register object *base=vs_base;
  2734.     register object *sup=base+VM32;
  2735.     vs_reserve(VM32);
  2736.     check_arg(1);
  2737.     vs_top=sup;
  2738. TTL:;
  2739.     base[1]= Cnil;
  2740.     {object V80;
  2741.     object V81;
  2742.     V80= base[0];
  2743.     V81= car((V80));
  2744. T1667:;
  2745.     if(!(endp((V80)))){
  2746.     goto T1668;}
  2747.     base[2]= reverse(base[1]);
  2748.     vs_top=(vs_base=base+2)+1;
  2749.     return;
  2750. T1668:;
  2751.     if(!(type_of((V81))==t_symbol)){
  2752.     goto T1674;}
  2753.     base[4]= (V81);
  2754.     vs_top=(vs_base=base+4)+1;
  2755.     Lsymbol_name();
  2756.     vs_top=sup;
  2757.     base[3]= vs_base[0];
  2758.     vs_top=(vs_base=base+3)+1;
  2759.     Lstring_downcase();
  2760.     vs_top=sup;
  2761.     base[2]= vs_base[0];
  2762.     base[3]= list(2,VV[105],base[2]);
  2763.     base[1]= make_cons(base[3],base[1]);
  2764.     goto T1672;
  2765. T1674:;
  2766.     if(!(type_of((V81))==t_string)){
  2767.     goto T1681;}
  2768.     base[2]= list(2,VV[105],(V81));
  2769.     base[1]= make_cons(base[2],base[1]);
  2770.     goto T1672;
  2771. T1681:;
  2772.     if(!(type_of((V81))==t_cons)){
  2773.     goto T1685;}
  2774.     {object x= car((V81)),V82= VV[186];
  2775.     while(!endp(V82))
  2776.     if(eql(x,V82->c.c_car)){
  2777.     goto T1688;
  2778.     }else V82=V82->c.c_cdr;
  2779.     goto T1685;}
  2780. T1688:;
  2781.     {object V83;
  2782.     object V84;
  2783.     V83= cdr((V81));
  2784.     V84= car((V83));
  2785. T1692:;
  2786.     if(!(endp((V83)))){
  2787.     goto T1693;}
  2788.     goto T1672;
  2789. T1693:;
  2790.     {object V85= car((V81));
  2791.     if(!(type_of((V84))==t_symbol)){
  2792.     goto T1701;}
  2793.     base[4]= (V84);
  2794.     vs_top=(vs_base=base+4)+1;
  2795.     Lsymbol_name();
  2796.     vs_top=sup;
  2797.     base[3]= vs_base[0];
  2798.     vs_top=(vs_base=base+3)+1;
  2799.     Lstring_downcase();
  2800.     vs_top=sup;
  2801.     base[2]= vs_base[0];
  2802.     goto T1699;
  2803. T1701:;
  2804.     if(!(type_of((V84))==t_string)){
  2805.     goto T1706;}
  2806.     base[2]= (V84);
  2807.     goto T1699;
  2808. T1706:;
  2809.     base[3]= VV[187];
  2810.     base[4]= (V84);
  2811.     base[2]= simple_symlispcall_no_event(VV[203],base+3,2);
  2812. T1699:;
  2813.     base[3]= list(2,V85,base[2]);
  2814.     base[1]= make_cons(base[3],base[1]);}
  2815.     V83= cdr((V83));
  2816.     V84= car((V83));
  2817.     goto T1692;}
  2818. T1685:;
  2819.     base[2]= VV[188];
  2820.     base[3]= (V81);
  2821.     (void)simple_symlispcall_no_event(VV[203],base+2,2);
  2822. T1672:;
  2823.     V80= cdr((V80));
  2824.     V81= car((V80));
  2825.     goto T1667;}
  2826. }
  2827. /*    function definition for T3LOCAL-FUN    */
  2828.  
  2829. static L69()
  2830. {    register object *base=vs_base;
  2831.     register object *sup=base+VM33;
  2832.     vs_reserve(VM33);
  2833.     bds_check;
  2834.     check_arg(5);
  2835.     vs_top=sup;
  2836. TTL:;
  2837.     {int V86;
  2838.     if((base[0])==Cnil){
  2839.     goto T1724;}
  2840.     V86= 0;
  2841.     goto T1722;
  2842. T1724:;
  2843.     V86= fix(structure_ref(base[3],VV[86],4));
  2844. T1722:;
  2845.     base[5]=symbol_function(VV[222]);
  2846.     base[6]= VV[189];
  2847.     if((structure_ref(base[3],VV[86],0))==Cnil){
  2848.     goto T1730;}
  2849.     base[7]= structure_ref(base[3],VV[86],0);
  2850.     goto T1728;
  2851. T1730:;
  2852.     base[7]= Cnil;
  2853. T1728:;
  2854.     (void)simple_lispcall_no_event(base+5,2);
  2855.     princ_str("\nstatic ",VV[84]);
  2856.     base[5]=symbol_function(VV[210]);
  2857.     if((base[0])==Cnil){
  2858.     goto T1737;}
  2859.     base[6]= VV[190];
  2860.     goto T1735;
  2861. T1737:;
  2862.     base[6]= VV[191];
  2863. T1735:;
  2864.     (void)simple_lispcall_no_event(base+5,1);
  2865.     base[5]= structure_ref(base[3],VV[86],3);
  2866.     (void)simple_symlispcall_no_event(VV[210],base+5,1);
  2867.     princ_char(40,VV[84]);
  2868.     {int V87;
  2869.     base[5]= make_fixnum(V86);
  2870.     V87= 0;
  2871. T1745:;
  2872.     base[6]= make_fixnum(V87);
  2873.     if(!(number_compare(base[6],base[5])>=0)){
  2874.     goto T1746;}
  2875.     princ_str("base",VV[84]);
  2876.     base[6]= make_fixnum(V87);
  2877.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  2878.     princ_char(41,VV[84]);
  2879.     goto T1742;
  2880. T1746:;
  2881.     princ_str("base",VV[84]);
  2882.     base[6]= make_fixnum(V87);
  2883.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  2884.     princ_char(44,VV[84]);
  2885.     V87= (V87)+1;
  2886.     goto T1745;}
  2887. T1742:;
  2888.     princ_str("\nregister object ",VV[84]);
  2889.     {int V88;
  2890.     base[5]= make_fixnum(V86);
  2891.     V88= 0;
  2892. T1767:;
  2893.     base[6]= make_fixnum(V88);
  2894.     if(!(number_compare(base[6],base[5])>=0)){
  2895.     goto T1768;}
  2896.     princ_str("*base",VV[84]);
  2897.     base[6]= make_fixnum(V88);
  2898.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  2899.     princ_char(59,VV[84]);
  2900.     goto T1764;
  2901. T1768:;
  2902.     princ_str("*base",VV[84]);
  2903.     base[6]= make_fixnum(V88);
  2904.     (void)simple_symlispcall_no_event(VV[210],base+6,1);
  2905.     princ_char(44,VV[84]);
  2906.     V88= (V88)+1;
  2907.     goto T1767;}
  2908. T1764:;
  2909.     base[15]= make_fixnum(V86);
  2910.     base[9]= one_plus(base[15]);
  2911.     setq(VV[76],number_plus(symbol_value(VV[76]),VV[77]));
  2912.     base[14]= symbol_value(VV[76]);
  2913.     bds_bind(VV[78],VV[79]);
  2914.     bds_bind(VV[80],VV[79]);
  2915.     bds_bind(VV[81],base[1]);
  2916.     bds_bind(VV[82],base[2]);
  2917.     bds_bind(VV[83],base[9]);
  2918.     bds_bind(VV[192],base[2]);
  2919.     bds_bind(VV[118],VV[140]);
  2920.     bds_bind(VV[124],VV[193]);
  2921.     bds_bind(VV[125],VV[140]);
  2922.     bds_bind(VV[11],base[14]);
  2923.     princ_str("\n{    register object *base=vs_base;",VV[84]);
  2924.     princ_str("\n    register object *sup=base+VM",VV[84]);
  2925.     base[15]= (VV[11]->s.s_dbind);
  2926.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  2927.     princ_char(59,VV[84]);
  2928.     if((symbol_value(VV[138]))==Cnil){
  2929.     goto T1796;}
  2930.     princ_str("\n    vs_reserve(VM",VV[84]);
  2931.     base[15]= (VV[11]->s.s_dbind);
  2932.     (void)simple_symlispcall_no_event(VV[210],base+15,1);
  2933.     princ_str(");",VV[84]);
  2934.     goto T1794;
  2935. T1796:;
  2936.     princ_str("\n    vs_check;",VV[84]);
  2937. T1794:;
  2938.     if((symbol_value(VV[136]))==Cnil){
  2939.     goto T1803;}
  2940.     princ_str("\n    ihs_check;",VV[84]);
  2941. T1803:;
  2942.     if((base[0])==Cnil){
  2943.     goto T1809;}
  2944.     base[15]= caddr(base[4]);
  2945.     base[16]= caddr(cddr(base[4]));
  2946.     (void)simple_symlispcall_no_event(VV[224],base+15,2);
  2947.     goto T1807;
  2948. T1809:;
  2949.     base[15]= caddr(base[4]);
  2950.     base[16]= caddr(cddr(base[4]));
  2951.     base[17]= base[3];
  2952.     (void)simple_symlispcall_no_event(VV[224],base+15,3);
  2953. T1807:;
  2954.     princ_str("\n}",VV[84]);
  2955.     base[15]= make_cons((VV[11]->s.s_dbind),(VV[80]->s.s_dbind));
  2956.     setq(VV[10],make_cons(base[15],symbol_value(VV[10])));
  2957.     base[15]= symbol_value(VV[10]);
  2958.     vs_top=(vs_base=base+15)+1;
  2959.     bds_unwind1;
  2960.     bds_unwind1;
  2961.     bds_unwind1;
  2962.     bds_unwind1;
  2963.     bds_unwind1;
  2964.     bds_unwind1;
  2965.     bds_unwind1;
  2966.     bds_unwind1;
  2967.     bds_unwind1;
  2968.     bds_unwind1;
  2969.     return;}
  2970. }
  2971.